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.REH ' 
2 
3 

5 
6 

7 

a 

9 
ID 

n IDENTM CATION 

12 
13 

U PROCKT CCOE: AC-E;57E-«C 

15 

16 PRODUCT NAHE: CZH9BEC B9312/1U4 UBI BOOT 

17 

18 PATE: JAMiWY, 1982 

19 

20 HAINTAINER: DIAGNOSTIC ENGINEERING 

21 
22 

23 THE INFORMTIOr* IN THIS DOCUWNT 1"^ SUBJECT TO 

24 CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 

25 AS A COmiTHENT Bi DITITAl EQUIPMENT CORPORATION. 

26 DIGITAL EQUIPWNT CORPORATION ASSIKS NO 

27 RESPONSIBILITY FOR ANY ERRORS THAT HAY APPEAR IN 
Ze THIS DOCUKNT. THE SOFTWARE DESCTflBED IN THIS 
29 DOCUMENT IS FURNISHED UNDER A LICENSE AND HAY ONLY 
SO BE SUED OR COPIED IN ALCDRD.ANCE WITH THE TERKS OF 
31 SUCH LICENSE. 

33 DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

3* RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

35 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 

36 DIGITAL. 

38 COPYRIGHT (C) 1979.1982 BY DIGITAL ECUIPEHNT 

39 CORPORATION 
40 
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42 

4i HISTORY SECTION 

(5 PBRDAC tMS RELEASED MARCH, 1978. 

1,6 P8RDB0 UAS RELEASED JUNE. 1978. 

t.7 PeRD440 WAS RELEASED JANUARY, 1979 

4^ czn9eD0 uAS released October 1979 

49 CZ«9eE0 UAS "^LEASED JANUARY. 1982 
5C 

51 REVISION B UAS CREATED TO PRCVIOE THE FOl .OWING ENHANCEMENTS: 

52 

53 1. PROPERLY CHECK THE BOOT ROM'S ALPHABETIC SEQUENCE AND. 

5* IF NOT IN CORRECT S^OUENCE, PRINT THE CORRECT SEQUEKCE AS 

SS AN ERROR MESSAGE. ALSO CHECK FOR NO HOLES AND CHECK 

50 FOR ROM In SOCKET #2 IF 11/60 AND ONLY ONE ROM EXISTS, 
57 FLSE PRINT THE CORRECT SEOUENCE. 

58 

5v 2. THE DIAGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A 

60 

61 CONTINUATION ROM. THEKSFORE. CONTINUATION ROMS ARE TREATED 

62 AS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM. ILLEGAL 

63 PLACEMENT OF CONTINUATION ROMS ARE REPORTED IN ERROR 

64 MESSAGES. A DUPLICATE DEVICE ROM IS ALSO REPORTED IN 

65 AN ERROR MESSAGE. 
60 

67 COMMENT FIELDS BEGINNING WITH THE CHARACTERS ":+'■ 

68 IDENTIFY ALL LINES ADDED OR MODIFIED BY REV BO. 
69 

70 REVISION C UAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS: 
71 

72 1. TO UPDATE THE DIAGNOSTIC BASED ON FAULT INSERTION OF 

73 THE M9312 MODULE. 
74 

75 2. TO ADO A ' NO ROMS FOUND ' MESSAGE. 
76 

77 3. TO SIZE FOR A FALSE ERROR CAUSED BY A REAL FAILURE TO 

78 FIND THE POWER FAIL VECTOR WHEN ONLY THE CPU ROM IS 

79 PRESENT. THIS SHOULD NOT BE TREATED AS A FATAL ERROR 

30 (UNICH !T UAS IN REV. B) . PREVIOULY, APT UOULD NOT RUN 

81 IN PRINTING MODE DIS'SLED DUE TO THIS ERROR. 

IS COMMENT FIELDS BEGINNING UITH THE CHARATERS ■';-•■ 

84 IDENTIFY ALL LINES ADDED CR MODIFIED BY REV. C. 
85 

86 REVISION C JAS CREATED TO ACCOMODATE TESTING OF 11/44 UBI MODULE. 

87 THE UBI MODULE HAS LCIIC UHICK IS FUNCTIONALLY EQUIVALENT TO THE H9312. 
M 

89 I. SINCE THE DIAGNOSTIC CALLS OUT E NUMBERS REFERENCING THE 

90 4 BOOTSTRAP ( 1 BOOT DIAGNOSTIC ROM IC'S, USE MFPT 

91 INSTRUCTION TO DETERMINE IF CPU IS 11/44. IF IT IS 

92 THEN USE SET OF E MMBERS CONSISTENT UITH UBI MODULE. 
93 

94 COMMENT FIELDS BEGINNING UITH THE OMRACTERS ";•*" 

95 IDENTIFY ALL LINES ADDED OR MODIFIED BY REV. D. 



^ 



REVISION E WAS CREATED TO ACCOMODATE TESTING OF 11/24 UITH BOOT ROMS ON EITHER 
98 THE HAP MODULE OR THE CPU MODULE. ALSO, CORRECTIONS UERE HADE TO SOME OF THE 
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99 MESSAGE PRINTOUTS UHEN RUN ON AN 11/24. IT ALSO CORRECTED CODING ERRORS IN THE 

100 •T'ROWPr" ANt ■tEVCOD:" CUBROUTINES. USED WHEN IN APT MODE WHEN BIT 7 OF JENVH 

101 IS SET CHE 200 BIT). ATTENTION: PROPER SETUP OF THE APT TABLES IS NECESSARY 

102 TO RUN IN THAT MODE. SEE SECTION UNDER APT <«.3J. UHILE RUNNING WITH « ROMS. 

103 DIAG FAILED. CODE WAS CHANGED TO CORRECT THIS PROSLEH. WHILE RUNNING WITH 

104 CONTINUATION RONS. DIAGNOSTIC FAILED. CODE WAS CHANGED TO CORRECT THIS PROBLEM. 

105 WRONG ROn MfBER WAS PRINTED ON A POM FAILURE, CODE CORRECTED TO POINT TO THE 
1% CORRECT ROM ASCII STREAM. 

107 

108 COHHENT FIELDS ENDING WITH ".DPfWOI" IDENTIFY ALL LINES 

109 ADDED OR MODIFIED BY REV E. 

no 
111 

112 1.0 ABSTRACT 

113 

IK 
! 115 THIS PROGRAM VERIFIES THE ROM INFORMATION FOk THE «9312 BOOTSTRAP 

I 116 TERMINATOR OR 11/44 'J3! TERMINATOR. IT HAS TWO MODES OF OPERATION; STAND-ALONE MO 

! 117 WHICH REQUIRES OP'KArOR INTERVENTION .AND APT-MODE. 

118 

119 

120 
\ 121 2.0 ^EtUIREMENTS 

! 122 

123 2.1 HARDWARE 

i 124 
I 125 ANY PDP-11 UNI8US PROCESSOR WITH CONSOLE TERMINAL AND/OR HARDWARE 

126 SWITCH REGISTER 

127 H9312 BOOT STRAP TERMINATOR 

128 4K MEMORY 
129 

130 NOTE: IF 11/44 CPU. H9312 BOOTSTRAP TERMINATOR IS NOT NEEDED 

131 
132 
133 

134 2.2 SOFTWARE 

135 

136 THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION OF THE 

137 PROCESSOR. MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE 

138 APPROPRIATE DIAGNOSTICS. 
139 
140 
141 

142 3.0 LOADING AND STARTING PROCEDURES 

143 

144 3.1 LOAD THE PROGRAM BY ANY OF THE STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS. 

145 

146 3.2 STARTING ADDRESS 

147 

148 200- 00 CRC VERIFICATION AND SIZING 

149 
150 
151 

■32 3.3 RESTART ADDRESS 

153 

154 204- PFSTART WITHOUT SUING 

155 



C2WBE0 B9312/114A ICT24 UBI BOO MACRO H1 113 22-JAN-82 09:18 PAGE 3-2 



SEQUENCE 



156 
157 
158 
159 
160 
161 
162 
163 
W, 
165 
16f 

168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
19i 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
ZOi. 
205 
206 
207 
?08 
209 
210 
211 
212 



3.4 SPECIAL ENVJfiONHENTS 

THIS PROGRAM IS APT COMPATIBLE SEE SECTION FOR ETABLE SET-UP. 
FOLLOW STANDARD APT PROCEDURES FOR LOADING AND STARTING. 



4.0 OPERATING PROCEDURES 

4.1 OPERATIONAL SWITCH SETTINGS 



THE PROGRAM IS DESIGNED TO USE THE HARDWARE SWITCH REGISTER. 
HOWEVER IF THIS REGISTER IS NOT AVAILABLE THE PROGRAM WILL USE 
LOCATION 176 AS THE SWITCH REGISTER. 

SU 15=1 OB UP— HALT ON ERROR 

SU 13=1 OR UP— INHIBIT ERROR TtPEOUTS 

SW 10=1 OR UP— BELL ON ERROR 



4.2 EXECUTION TIMES 

EXECUTION TIME IS DEPENDENT ON THE CONSOLE TERMINAL DURING THE 
FIRST PASS. ALL OTHER PASSES TAKE LESS THEN 1 SECOND. 

4.3 APT PROCEDURES 

THERL ARE TWO CHOICES WHEN RUNNING UNDER APT. IF THE SIZE BIT 
(BIT 7-$ENVM) IS CLEAR THE PROGRAM WILL OPERATE IN NORMAL 
STAND-ALONE MODE. IF THE SIZE BIT IS SET TH,= PROGRAM WILL 
COMPARE PARAMETERS FROM THE BOARD TO THE CONTENTS OF THE ETABLE. 
THIS TABLE MUST BE SET UP PROPERLY AS TO THE HARDWARE CONFIGURA- 
TION, OTHERWISE ERROR(S> WILL RESULT. TO USE THE APT COMPARSION 
FEATURE THE ETABLE MUST BE SET UP IN THIS ORDER: 



$5NV: 


DON'T CARE 


SENVM: 


200 OR 240 


SSUREG 


DON'T CARE 


SUSWR: 


NOT USED 


$CPUOP 


NOT USED 


SMAMSI 


NOT USED 


SMTrPl 


HOT USED 


SMADR1 


NOT USED 


SNAMS2 


k-OT USED 


$MTYP2 


NOT USED 


SHADR2 


NOT USED 


$MA«S3 


NOT USED 


JMTrP3 


NOT USED 


$MADR3 


NOT USED 


$MAMS4 


NOT USED 



CZH9BE0 R9312/1HA KT24 UBI 800 HACRO mn3 22-JAN-82 09:18 P* 



f 1 
5C 2-3 



SEQUENCE 



213 

214 

215 

216 

217 

218 

219 

2^0 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

253 

259 

260 

261 

?62 

263 

264 

266 
267 
26< 

269 



$nAMS4 
$rtTYP4 
$niU)f)4 
SVECTI 
SVECT2 
»ASE: 



»DEVn: 
SCDU1 : 



NOT USED 

NOT USED 

NOT USED 

NOT USEO 

NOT USED 

PSEUOO POUER-FAIL VECTOR ADDRESS - MUST BE LOADED IF BIT 7 

OF SENVn IS SET (THE 200 BIT) (DIAGNOSTIC ASSWKS 173024 

IF BIT 7 OF SENVH IS CLEAR) 

NOT USED 

CCMTENTS OF ADDRESS IN SBASE 

OF $ENVH IS SET (THE 200 BIT) 

IF BIT 7 OF SEH-m IS CLEAR) 

NOT USED 

UP TO 12 DEVICE CODES EXPECTED - MUST BE LOADED IF $ENVH=200 OR 

NOT USED 

NOT USED 

NOT USED 

NOT USED 



MUST PE LOADED IF B.!T i 
'DIAGNOCTIC ASSUMES 1650' 



SCDU2: 

tDDUO.— SDDU11: 
$DDU12: 
SUDU13 

SDoyu 

$D0U15 

NOTE: THE ORDER FOR LOADING SDDUO iS IMPORTANT. THE FIRST 
VALUE SHOULD BE FOR THE DIAGNOSTIC / CPU ROM, FOLLOWED 
BY THE APPROPRIATE OCTAL VALUES Fffi THE SOOT ROMS PRESENT. 
SOME OCTAL VALUES USED ARE: 
OCTAL DATA MNEMONIC PIN LABELING 



OCTWO - 


n 


2?8FT 


040160 


BO 


233F1 


041460 


CO 




042113 


DK 


756A9 


0421 U 


DL 


751A9 


042130 


DX 


753A9 


046524 


MT 


757A9 



5.0 SUBROUTINE AP<;TRACTS 

5.1 NOROMS 

THIS ROUTINE IS CALLED ONLY IF NC ROMS WERE FOUND DURING SIZING 
IT DCcS A READ OF ALL BOO'^STkaP ROM ADDRESSES AND COMPARES THE 
CONTENTS TO ;. KNOWN EXPECTED VALUE. 



5.2 CHECKS 



THIS ROUTINE SETS UP THE FIRST. LAST AND EXCEPTION ADDRESSES FOR 
THE "CALSUM" SUBROUTINE. IT RECIEVES THE CALCULATED CHECKSUM FROM 
"CALSUM" AND COMPARES IT AGAINST THE GOOD CHECKSUM TO DETERMINE 
CRC ERRORS. 



5.3 CALSUM 






GE J-4 
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270 THJS ROUTINE CALCULATES THE CRC16 CHECKjlfl Of EACH ROH. IT 

271 nECEIVES THE FIRST ADDRESS TO BE CHEC«D(?IfiSTA), THE LAST 

272 ADDRESS TO BE CHECKED (LASTAD) AND THE CXCEPTION ADDRESS (EXCADD) 

275 FROM THE "CHECKS" nOOULE AND RETURNS TO IT THE CHECKSUM IN R4. 
27« 

275 

276 5.4 PROMP 
277 

278 

279 THIS ROUTINE PROCESSES THE ROM PARAMETERS. IT CHECKS THE SIZE/ 

??0 DON'T SIZE BIT IN THE APT ETA3LE AND EITHER FORMATS THE SIZING 

2'i1 MESSAGES Oft COMPARES THE SIZING INFORMATION TO THE APT ETABLE 

282 DATA. 

283 

284 

28S 5.5 DEVCOO 

286 

287 

288 THIS ROUTINE LOCATES EACH DEVICE CODE AND PASSES IT AND THE 

289 ADDRESS IN WHICH IT WAS FOUND BACK TO THE •T>ROMP" MODULE. 
290 

291 

292 5.6 PPFVAR 

293 

294 

295 VHIS ROUTINE DETERMINES THE PSEUDO POWER-FAIL VECTOR ADDRESS AND 

296 PASSE? IT AND iTS CONTENTS TO THE "PROMP" MODULE 
297 

298 

299 5.7 PUTMES 

300 

301 

302 THIS ROUTINE FORMATS THE PAfiAMETER AND POWER-FAIL ADDRESS 

303 HESSAGFS. 
304 

305 

506 5.8 ESRKAN 

307 

308 

539 THIS ROUTINE FORMATS ALL ERROR MESSAGES AND CALLS THE TYPE 

;ni) ROUTINE TO OUTPUT THEM. !T ALSO USES THE OPERATIONAL SWITCHES TO 

'JVI DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT. 

312 

313 

314 5.9 FILBUF 

315 

316 

317 THIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCII CHARACTERS. IT 

318 RECIEVES THE ADDRESS OF THE ASCII IN R5. 
319 

320 

321 

322 5.10 OCASC 

323 

324 

325 THIS ROUTINE TAXES A SIXTEEN BIT SINARr NUMBER AND CONVERTS IT TO 

326 6 ASCII CHARACTERS. 
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327 

323 

329 

330 5.11 OCADD 

331 

332 

333 THIS ROUTINE IS USED PY THE 'T'UTHES' HODULE WHEN THE DATA iW R3 

334 IS NOT IN THE RIGHT HODE TO 8E HANDLED BY THE 'IQCASf NODULE. IT 

335 HOVES THE ADDRESSING BODE OF R3 UP ONE LEVEL OF DEFERMENT. 
336 

337 

338 

339 6.0 RELIAeiLITY//AVAlLABILITY/ScRyiCEA8IL;TY 

340 

341 WHEN RUNNING IN ANY ENVIROWENT BUT APT 1HERE IS ONLY ONE ERROR 

342 DETECTED BY THE PROGRAM. THIS ERROR IS A CHECKSUH ERROR. THE 

343 MESSAGE WILL BE: 
344 

345 CRC ERROR IN ROM EXX 

346 

347 THE FOLLOWING ERROR MESSAGES WERE ADDED IN REV 60: 

348 

349 1. A CONTINUATION ROM IS INCORRECTLY LOCATED IN ROM X(EXX) 

350 2. A CONTINUATION ROM IS HISSING FOR DEVICE CODE XX 

351 3. THERE .S A DUPLICATE ROM WITH DEVICE CODE XX 

352 4. ROM SEQUENCE IS INCORRECT AS PER INSTALLATION PROCEDURE. 
355 

354 SEQUENCE SHOULD BE: 

355 

356 

357 

352 

359 

360 

361 WHEN RUNNING IN THE APT ENVIRGTMENT THREE OTHER ERRORS NAY OCCUR. 

362 

363 1. AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN THE ETABLE DO 

364 NOT MATCH THE DEVICE COOES FOUND IN THE ROMS. THE ERROR 

365 MESSAGE WILL BE EITHER: 
V,f> 

367 1. COULD NOT FIKD DEVICE CODE XX. 

368 

369 2. FOUND UNEXPECTED DEVICE CODE XX. 

370 

371 THE FIRST NESSACE WILL BE PASSED TO APT iF A DEVICE CODE 

372 LISTED IN THE ETABLE CANNOT BE FOUND IN THE EXISTING ROMS. 

373 THE SECOND MESSAGE WILL BE SENT IF A DEVICE CODE NOT LISTED 

374 IN THE ETABLE IS FOUND IN A ROM. 
375 

376 2. THE SECOND ERROR WILL BE IF THE PSEUDO POWER-FAIL VECTOR 

377 ADDRESS IN THE ETABLE DOES NOT HATCH THE ADDRESS DETERMINED 

378 BY THE PROGRAM. TO BE IN THE BOARDS' SWITCHES. THE MESSAGE 

379 WILL 6C: 
380 

381 POWER-FAIL VECTOR 

382 EXPECTED RECEIVED 

383 



ROM 1(E35) 


XX 


ROM 2(E33; 


XX 


ROM 3(E34> 


XX 


ROM 4(E32) 


XX 



u 
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5W 

385 WHERE EXPECTED IS THE CONTENTS OF THc ETA8LE AND RECEIVED IS 

386 THE VALUE FOUND Br THE PROGRAM. 
387 

388 -. THE THIRD ERROR UILL BE IF THE CONTENTS OF BOARD'S PSEUDO 

389 POWER-FAIL VECTOR ADDRESS DOES NOT BATCH THE VALUE EXPECTED 

390 FROM THE ETABLE. THE MESSAGE WILL BE: 
391 

392 POWER-FAJL DATA ERROR 

393 EXPECTED RECEIVED 
594 

397 7.0 NOTE: DIAGNOSTIC COVERAGE 
398 

399 THIS DIAGNOSTIC DOESNOT PcRFORfl ANY EXAMINATION OF 

400 THE BOOT CIRCUITRY ON THE M9312. IF YCSJ WISH TO CHECK THIS 

401 CIRCUITRY YOU MUST FIRST. DETERMINE WHICH DEVICE YOU WILL BOOT 

402 AND SECOND, YOU MUST SET THE SWITCHES Of THE N9312 

403 TO THE APPROPRIATE SETTINGS. YOU NAY NOW ATTEMPT TO BOO:' 

404 THE H9312 . IF THE DEVICE DOES BOOT THIS SHOULD BE 

405 EVIDENT FROM THE CONSClE TERMINAL, IF PRESENT. OR FROM THE RUN 

406 LIGHT ON THE FRONT PANEL. WHICH SHOULD BE LIT. RIGHT? RIGHT! 
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<.21 

A22 OOOOOC 

423 

t,2i, 

<.25 

426 

A27 

A28 

435 

436 

43? 

438 

439 

440 



4h1 



4',2 



00G001 
160000 



001100 
104000 
0COO04 

000011 
C00012 
000015 
000200 
177776 
^7?77i 
177774 
17777? 
177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



.ENABLE ABS 

.ENABL AHA 

.LIST «E 

.NLIST HC 

.NLJST TO 

.NLIST CND 

.NLIST BEa 

.HCALL .$ASTAT..$SAVE..$CATCH..$CnTA6.. SETUP,. $E0P,.$TrPE 

.MCALL STARS,. EQUATE. .$APTHDR,.$APTBLS..$APTYPE 

.PCALL .SACTII,. HEADER.. SyRHI.SEPORT.TYPNAfl.PUSH. POP,. STRAP 

.HCALL .$ftEAO,.$TyPOCT 

.MCALL .EQUIV 

.TITLE C2H98E0 H9i12/1144 KT24 UBI BOOT 

.♦COPYRIGHT (C) 1982 

.-•DIGITAL EQUIPMENT CORP. 

;»HAYNARD, MASS. 01754 

.» 

; •PROGRAM BY DAN WLLEVILLE 

• * 

;*THIS PROGRAM UAS ASSEMBLED USING THE PDP-11 NAINDEC SrSMAC 

; 'PACKAGE (HAINDEC-11-DZQAC-C5). JAN. 1981. 

:• 

»TN=1 

SSWR=160000 .-.-HALT ON ERROR. LOOP ON TEST. 
S8TTL OPERATIONAL SWITCH SETTINGS 



INHIEIT ERROrt TYPOUT 



SWITCH 



USE 



* 15 HALT ON ERROR 

* 14 LOOP ON TEST 

» 13 INHIBIT ERROR TYPEOUTS 

S8TTL BASIC DEFINITIONS 

•INITIAL ADDRESS Of THE STACK POINTER ••• 1100 ••• 
STACK= 1100 

ERR0R=EMT 
SCOPE=IOT 
.-•MISCELLANEOUS DEFINITIONS 
HT= 11 
LF= 12 
CR= IS 
CRLF= 200 



PS= 


177776 




PSU=PS 


STKLMT= 


177774 


PIRO- 


177772 


DSUR= 


177570 


DDISP= 


177570 


; •GENERAL TURP 


R0= 


M 


R1 = 


Z1 


R2: 


12 


R3= 


Z3 


R4= 


:« 


R5= 


X5 


R6= 


16 


R7= 


17 



TAt, 



CODE FOR HORIZONTAL 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETt^N 

CODE FOFi CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

; STACK LIMIT REGISTER 

; PROGRAM INTERRUPT REQUEST REGISTER 

.-HARDWARE SWITCH REGISTER 

:HARDWARE DISPLAY REGISTER 

R DEFINITIUNS 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

CENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 

GENERAL REGISTER 
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SEQUENCE 10 



000006 
000007 

000000 
0CO040 
0001 00 
OOOUO 
000200 
000240 
000300 
0O03A0 

1C0000 
OsO'^OO 
02UO00 
010000 
004UOO 
002000 
001000 
0OC400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

00- :oo 

00v>400 

ooo;!oo 

000100 
C00040 
000020 
000010 
000004 
000002 
000001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
OO0001 
00 1000 
OOO-iOO 



SP= 16 ;; STACK POINTER 

PC= X7 ;;PfiOGRAH COUNTER 

.-•PRIORITY LEVEL DEFINITIONS 
PRO= ;. -PRIORITY LEVEL 

PR1= 40 .-.-PRIORITY LEVEL 1 

PRi= 100 ;. -PRIORITY LEVEL 2 

PR3= 140 .-.-PRIORITY LCVEL 3 

PR4= 200 .-; PRIORITY LEVEL 4 

F.?5= 240 .-;PRIOfiITY LEVEL 5 

Pfi6= 300 .-.-PRIORITY LEVEL 6 

-07= 340 .-.-PRIORITY LEVEI 7 

• iJjTCH REGISTER" SWITCH DEFINITIONS 



SW15= 
SW14= 
SU13= 
SU12= 
SW11=: 
SU10= 
SW09= 
SU08= 
SU07= 
SU06= 
SW05= 
iU04= 
-U03= 
iWC2= 
SW01 = 
SWO0= 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 



1 



SU9=SW09 
SW8=SU08 
SW7=SU07 
SW6=SU06 
SUS^SUOS 
SW4=SW04 
SW3=SU03 
SW2=SU02 

syusuoi 
suo^swoo 

.-»DATA BIT DEFINITIONS (BITOO fO 8IT15) 

BIT15= 100000 

6IT14= 40000 

BIT13= 20000 

BIT12= 10000 

BITIU 4000 

6jro= 2000 

6IT09= 1000 

BIT08= 400 

B1T07= 200 

BIT06= 100 

BIT05= 40 

BIT04= 20 

BIT03= 10 

BIT02- 4 

BIT01= 2 

BIT0O= 1 

BIT9:8IT09 

BIT8=8II08 
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COO200 




0001 CO 




000040 




000020 




000010 




000004 




000002 




000001 




000004 




0OO010 




000014 




000014 




000014 




000020 




000024 




000030 




000034 




000060 




000064 




000240 


AA3 




44A 




W5 




446 


0OO001 


4A7 


000002 


448 


000004 


449 


C00010 


450 


000020 


451 


000040 


452 


000100 


453 


000200 


454 


000400 


455 


0O100O 


456 


002000 


457 


000000 


458 






000000 




000174 


000174 


nooOOO 


000176 


oonooo 
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BIT7=aiT07 

BIT6=8IT06 

BIT5=8IT05 

BIT4=8IT04 

B1T3^IT03 

BIT2=8IT02 

BIT1=8IT01 

BITO=8IT0O 
.••BASIC "CPU" TRAP VECTOR 
ERRVEC= 4 
RESV?C= 10 
T8ITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
I0TVEC= 20 
PWRVEC= 24 
E«TVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIR0VEC=240 



L 1 
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SEQUENCE 11 



0OC> ■! 000137 001400 

460 000204 

461 000204 000137 002204 
462 



000211/ 

000046 
000046 "02312 

000052 
000052 tlOOOO 

00u<!10 



ADDRESSES 

TIBE 001 AND OTHER ERRORS 

RESERVED AND ILLEGAL INS1RUCTI0NS 

■T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP -lOT) »»SCCPE«« 

POWER FAIL 

EMULATOR TRAP (EHT) •»£PROR«» 

•7RAP" TP_y> 

TTY KErSOARD VECTOR 

TTr PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



• PROGRAM EQUATES 

APTER1 = ' 

APTER2 = 2 

APTER3 = 4 

APTER4 = 10 

CRCERR = 20 

PFERR = 40 

NOfiOME 100 

SEQERR -200 

CONONE =400 

CONTWO=TC00 

0UPERR=2O0O 

.=0 
.S8ITL TRAP CATCHER 

.=0 
.-•ALL U.HJSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2. HALT" 
.••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.-•LOCATION CONTAINS TO CATCH IHPROPES.T LOADED VECTORS 

.=174 
OISPREG: .WORD ; .SOFTWARE DISPLAY REGISTER 

SWREG: .WORD .-.SOFTWARE SWITCH REGISTER 

• SBTTL STARTI.JG ADDRESS(ES) 

JMP a#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 

.=204 

JMP RSTART 

.SBTTL ACT11 HOOKS 

•;r*4*****t****%4*********fr«*** *********** »ft«*1kft«ftft*lrft*ft**44ft444* 



: HOOKS REOUIHED Br ACT1 I 
»SVPC=. 
.=46 
SENDAD 
.=52 

.WORD 
.=$SVPC 



.-SAVE PC 

.-.DSET L0C.45 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SEI LOC.52 TO ZERj 
;; RESTORE PC 



H 1 
CZ«9BE0 H9312/1H4 KT24 UBI BOO HACRO M1113 22-JAN-82 09:18 PAGE 4-3 SEQUENCE 12 

».CT11 HOOKS 

A63 001100 .=1100 

A64 COViOO 000 SAUTOB: .BViE 

465 001 -.01 000 SINTAG: .BYTE C 

466 001102 000000 .WORD C 

467 001104 177570 SWR: .WORD DSUR 

468 001106 177570 DISPLAY: .WORD ODJSP 

469 001110 OOOCOO RCflERR: 

470 001112 noOOOO MESSAG: 

471 001114 173000 FIRSTS: 173000 
■.?2 0011-'6 000000 ROflfIN: 

473 CO 1 120 000000 ERftCNT: u 

474 001122 000000 CPUT/P: 



czf»9e£0 pfiZ^^/^^'Al, kt2a uei boo fwcRo niii3 

.^PT PARA«T£R BLOCK 
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SEOUENCE 13 



475 



000024 
000044 



001124 
001124 
001126 
001130 
001132 
001134 
0011% 



001124 
000024 
000200 
000044 
001124 
001124 



000000 
001140 
0O0C32 
C00002 
000000 
000052 



S8TTL 
SET L 



APT PARAMETER BLOCK 

********** A ««*« 4 *********** ***t«***«««*«****4* )*****« ****** 

CCATIONS 24 AND 44 AS REQUIRED FOR API 
*******ft*ft**************^**********«************'v ********** 



.$X=. 

.=24 

200 

.=44 

SAPTHDR 

.=.$X 



SAVE CURRENT LOCATION 

SET POCER FAIL TO POINT TO START OF PRO 

FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 

i^INT TO APT HEADER Bl OCK 

RESET LOCATION COUNTER 



•*********»•*****♦**•»♦** *****w*»********»****i***** ************ 

SETLf APT PARj»«ETER BlOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.INTERFACE SPEC. 
SAPTHD: 



SHIBTS: 

SMBADR: 

$TST«: 

SPAST^: 

SUNITH: 



.WORD 

.WORD SMAIL 

.WORD 2. 

-WORD 2. 

.WORD 



;TUO HIGH 3IT.S OF 18 BIT MAILBOX ADDR. 
;ADORESS OF APT BAILBOX (BITS 0-15) 
:R'M TIM OF LONGEST TEST 

;RUM TIME IN SECS. OF 1ST PASS C . 1 UNIT 'QUiC~ VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A .'ASC FOR FACt ^PI'ICNAL UNIT 



.UORD *FrEMD-$MAIL/2 ;;LENGTH MAILBOX-STABLE (WORDS) 



czmBEO m^^^/^^^^ tjzi, ubi boo pmcro niii3 

APT PWlLBO'i-CTABLE 



22-JAM-i2 09:18 



B 
PAGE 6 



SEKJENCE 



1,77 



001 ; 40 
001 uo 
001 U2 
001 1U 
001146 
001150 
001152 
001154 
0C1156 
001160 
001160 
001161 
00116? 
001164 
001166 



001170 
001171 



ooooco 

000000 
000000 
OOOOOG 
000000 
OOGOOO 
000000 
000000 

000 

000 

'WOOO 

000000 

000000 



000 



00117? 000000 



001174 
001175 
001176 
001200 
001201 
001202 
001204 
001205 
001206 
001210 
001212 
001214 
001216 
001220 
001222 
001224 
001226 
001230 
001232 
001234 
001 ?34 
001240 
001242 
:244 
001246 



000 
000 

ocoooo 

000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
OOOGOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.SBTTL APT PMiLBOX-£ TABLE 



.EV5M 

SMiL: 

SttSGTT: 

SfATAL: 

ITESTM: 

iP^SS: 

SOEVCT: 

SUUl: 

SBfiW: 

SflSa.6: 

S€TWLE: 

SCNV: 

SEMM: 

SSME6: 

SUSUR; 

JCPUOP: 



fWWSI: 
MTVP1 : 



uom 
yton 

.UORO 

von 
yon> 
.worn 

.UORO 

.wow 

•BYTE 
•BirTE 
.UORO 
.UORO 
.UORO 



.BYTE 
.BYTE 



/WSSTT 

AFATAl 

ATCSTM 

APASS 

ADEVCT 

AiMT 

MSCAO 

AEMV 

ASUREG 

AUSW 

ACPUOP 



AfWtSI 

AflTYPI 



MAORI: .WORD AHADRI 



MANS2: 


.BYTE 


ANAnS2 


$HTYP2: 


.BYTE 


AHTYP2 


SHADR2: 


.WORD 


AHADR? 


SIWIS3: 


.BYTE 


AHAMSl 


MTYP3: 


.BYTE 


AHTYP3 


SflADR3: 


.WORD 


AnADR3 


SfWHS4.- 


.BYTE 


AnAns4 


SHTYP4: 


-BYTE 


AHTYP4 


SHA0R4: 


.WORD 


AnADR4 


SVECTI: 


.WORD 


AVECT1 


$VECT2: 


.WORD 


AVECT2 


SBASE: 


.WORD 


ABASE 


SDEVH: 


.WORD 


AOEVB 


SCDU1 .- 


.WORD 


ACDW1 


SCDU2: 


.WORD 


ACDW2 


SDDUO: 


.WORD 


ADOWO 


SDDU1 : 


.WORD 


ADDW1 


$DDU2: 
SDDU3: 


.WORD 


ADDW2 
ADDW3 


.WORD 


SDDU4: 


.WORD 


.WDU4 


SDDU5: 


.WORD 


ADDU5 


SDDU6: 
$DDW7: 


.WORD 


ADCW6 
AD0U7 


.WORD 


SDDW8: 


.WORD 


ADDU8 


S0DW9: 


.WORD 


ADDU9 



::APT MiL30X 
.■:nESS4fiE TYPE CODE 
:: FATAL ERROR MUVER 
;:TEST Nl»KR 
;;PASS COkMT 
:; DEVICE COIWT 
;:I/0 IMT NUKR 
:.-ll€SSAK ADDRESS 
::.£$SASE LENSTH 
::A«>T BWI RO W CW T TtBLf 
.-ENVIROMBUT BYTE 
::ENVIRaMENT HODE BITS 
;.APT SWITCH RE€iSTER 
.-.-USER SWITCHES 
;;CPU TYPE,0»>TIONS 
BITS 15-11 -CPU TYPi; 

11/04*01,11/05=02,11/20=03,11/40=04.11/45=05 

11/70=06.PO«=07.Q=10 
BIT UNREAL TIME CLOCK 
BIT 9=fL0*TH«S POWT PROCESSOR 
BIT S=MEK)RY WNACEfCNT 
,-:HIGN ADDRESS,R.S. BYTE 
;;Heil. TYPEJBLMI 
HEB.TYPE BYTE — <HI6H BYTE' 

900 MSEC CORE=0Oi 

300 MSEC BIPOLAR=002 

500 MSEC nOS=003 
:;H13H AC0RESS,BLK#1 

KH.LAST ADDR.=3 BYTES, THIS WORD AND LOU Of 'lYPf" ABOVE 
::HIGH ADDRESS.M.S. BYTE 
;;«£«. TYPE,8Uor2 
.-.-HEM.LAST ADDRESS.BLK#2 
,-;HIGM ADDRESS,M.S.aYTE 
,-,-HEI1.TYPE.BLia»3 
: .-HEM. LAST AD0RESS.BLI0r3 
::HIGH ADDRCSS,M.S.BYTE 
;, -HER. TYPE ,Bim 
;;KM.LAST A0DRESS,BLK#4 
;: INTERRUPT VECT0R#1,BUS PRIORI TYfl 
;; INTERRUPT VECT0R#2BUS PRIORI ty#2 
,-:BASE ADDRESS OF EOUIPHENT IMER TEST 
:, -DEVICE NAP 

:: CONTROLLER DESCRIPTION WCRD«1 
::I-0NTR01LER DESCRIPTION W0RD«2 
::0EVICE DESCRIPTOR WORD#0 
,-;0EVICE DESCRIPTOR W0R0«1 
::DEVICE DESCRIPTOR W0RD«2 
:, -DEVICE DESCRIPTOR W0RD«3 
.-.-DEVICE DESCAIKOR W0RD«4 
.-.-DEVICI: DESL.<t:PTOR W0RD«5 
;;CEVICI: DESCRIPTOR U0RD«6 
,-;')EVICE DESCRIPTOR W0RD«7 
;:DEVICE DESCRIPTOR W0RD«8 
:: DEVICE DESCRIPTOR U0RD#9 



CZWBEO «9512/n« KT24 U8I BOO MACRO Ml 113 
APT HAILB0X-ETA8LE 
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SEQUENCE 15 



001250 000000 

001252 000000 

001254 000000 

001256 000000 

301260 000000 

001262 000000 
001264 

478 000007 



SDDU10: .WORD ADDW10 

SD0U11: .WORD ACDW11 

S00U12: .WORD ADDU12 

SD0U13: .WORD A0OW13 

SDDUU: .WORD ADDUH 

SDDU1S: .WORD ADDW15 
SETENO: 

HFPT::0OO007 



DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 



WORD410 
W0RD411 
W0RD<ri2 
W0RD#13 
WORD«U 
W0RD«15 



CZ«9e£0 H9312/1U4 KT2; U8I BOO MCRC NmS 22-JAN-82 09:18 
APT NAILBCX-ETABLE 



2 

P/GE 7 



SEQUENCE 16 



<i79 OOUOO 
480 OOUOO 

OOUOO 012706 001100 

00n04 012737 0071 U 

0OK12 012737 000y.0 

00U20 005037 001 U6 

0OU24 013737 002266 



00U32 
00U36 
001 44A 
0OU52 
001 A60 
00U66 

001470 
001472 
:X)U76 
001500 
001 SC 
0015U 
001520 
001524 
001532 
001554 
001542 
481 

001542 
001546 
001550 
001556 
001560 

001564 
001570 
001572 
001600 
001602 
001610 
001612 
001£14 
001616 
001624 
001624 

00167? 

482 001671 

483 001676 

484 001704 

485 001710 

486 001712 

487 001716 

488 001724 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 
005037 
132737 
001403 
012737 



005227 
001051 
022737 
001445 
104401 

005737 
001012 
123727 
001406 
023727 
001005 
104405 
000403 
: 12737 

000422 



013746 
012737 
005037 
000007 
110037 
122737 
001012 



000004 
001472 
177570 
177570 
177777 



001 5C0 

000176 
000174 
000004 
001146 
000200 

001162 



177777 
002312 
001626 
000042 
001160 
001104 



START; 
.S8TTL 



100034 
•10036 

v,>'-2260 



000004 



000010 
001744 
001122 

001122 
000001 



.=1400 



INITIALIZE THE COtWON 



001104 
001106 



001161 
001104 



00004^ 



000OO1 
CO0 176 



TAGS 

.-.-SETUP THE STACK POINTER 



NOV fSTACK.SP 

.•INITIALIZE A FEW VECTORS 

NOV »$TRAP,SjrTRAPVEC ;;TRAP VECTOR FOR TRAP CALL" 

BOV #340,afTRAPVEr+2;LEVEL 7 

CLR SPASS ;;CLEA.i THE PASS COUNT 

BOV SENBCT.JEOPCT .-.-SETUP END-OF-5>ftOGRAM COLNTER 

;S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;EaUAL TO A '-V'. SETUP FOR A SOFTWARE SWITCH REGISTER. 
«V 



64S: 
65$: 
66$: 



67$: 

.SBTTL 

.-.-TYPE 



ilOV 

nov 

MOV 
C«P 
?NE 

&R 

MOV 

RTI 

nov 

«0V 

NOV 

CLR 

61 TB 

BEO 

BOV 



arERRVEC,-(SP) 

«64$.MERRVEC 

JVSWR.SWR 

fODISP. DISPLAY 

f-1.aSWR 

66$ 



65$ 
«65$. 



(SP) 



#SU<«EG,SWR : 
fOISPREG. DISPLAY 

(SP) + .*r£RRVEr ; 
»PASS 

*APTSIZE,$ENW1 . 

67$ ; 

fSSUREG.SWR ; 



TYPE PROGTJW NAfK 
THE NAHE Of THE PROGR/iH 



INC 
BNE 
CHP 
BEQ 
TYPE 



6*$ 

mNDAD,M42 
63$ 
6St 



IF 



.SBTTL GET VAL!i<= FUR SOFTWARE SWITCH REGISTER 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
ANt A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDiiARE Sm 
BRANCH IF NO TIHECUT TRAP OCCURRED 
AND THE HARDWARE SWR 13 NOT = -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 

POINT TO S.lrTWARE SWfi 

RESTORE ERROR VECTOR 
CLEAR PASS CCLMT 
TEST USER SIZE UM)ER APT 
YES, USE NON-APT SWITCH 
NO. USE APT SWITCH REGISTER 



FIRST PASS 
.-FIRST Tine? 
.-BRANCH IF NO 
,-ACT-11? 
.-BRANCH IF YES 
.-TYPE ASCIZ SIRING 



000001 001100 



70$: 
71$: 



000010 
001122 



TST 

BNE 

C1PB 

BEO 

CHP 

BNE 

6TSUR 

BR 

novB 

BR 
.ASCI? 

NOV 

NOV 

CLP 

HFPT 

NOv'B 

CHP8 

BNE 



j.'42 

70$ 

t£NV.#1 

70$ 

SWR.fSWREG 

71$ 

71$ 
jel.$AUT0e 

f3$ 
<CRLF>*CZ«9BE0 

':).-(SP) 

#i6$.io 

CPi'TYP 

HC.CPUTYP 
#1,CPUTYP 
12i 



.•ARE WE RUNNING UNDER XXDP/ACT? 
; .-BRANCH IF YES 
.-.-ARE WE RUNNING UNOER APT? 
* 'BRANCH IF YCS 

••SOFTWARE SWITCH REG SELECltD? 
::PRANCH IF NO 
;.-oET SOFT-SUR .'EITINGS 

.-.-SET AUTO-*»OE INDUATOR 

;;GET OVER THE ASCIZ 
n9312/1144 KT24 UbI BO0T*<CRLF> 



•• SAVE VECTOP ON STACK 

•« SET ERROR VECTOR 

CLEAR CPU TYPE LOCATION ;DP«001 

»♦ WHAT CPU IS IT 

SAVE CPU TYPE IN 'CPUTYP' ;D?tW01 

•• 11/44?? ;DPf1001 

»• NO USE 09312 ROM NUMBERS 



i 2 

CZmBEO «9312/n-,4 ICT24 UBI BOO NACRO mi13 22-JAN-82 09:18 PAGE 7-1 
GET VALUE FOR SOFTyARE SWITCH REGISTER 



489 001726 

490 001734 


012737 


013106 


013104 




HOV 


f«sss44.nESSpr 


012737 


007306 


007176 




BOV 


#.\«0»« ROHPTR 


491 001742 


000403 








BR 


■i2$ 


492 001744 


012716 


001771S 




10$: 


«0V 


#15$, (SP) 


493 001750 


?^? 








RTI 




494 001752 


000003 


001122 


12$: 


C«P9 


ff^ CPOTYP 


495 001760 


001006 








BNE 


496 001762 


012737 


013116 


013104 




nov 


» £SS24.nESSPT 


497 001770 


012737 


007320 


007176 




NOV 


♦aKOH.ROHPTR 


498 001776 


012637 


00OO10 




15$: 


BO 


<SP)+,10 


499 002002 


012700 


010502 






nov 


*9UF1 ,R0 


50C 002006 


0O';020 






8$: 


CLR 


R0) + 


501 002010 


f200.V 


G10566 






av> 


fiO.lCCTBUF 


502 002014 


002774 








BLT 


8* 


503 00201 C 


X35037 


001116 






CLR 


ROWIN 


504 002022 


005037 


004342 






CLR 


TI«ES 


505 002026 


004737 


011676 






j: 


PC. -.EAR 


506 002032 


013746 


00000<. 






«ov 


ER.-fEC.-<R6) 


507 002036 


012737 


002100 


000004 




NOV 


#2S.ERRVEC 


508 002044 


122737 


177777 


165000 




CflFB 


#-1,165000 


509 002052 


001414 








SEC 


3$ 


510 002054 


012700 


165000 






«0V 


#165000, RO 


511 002060 


005720 






1$: 


TST 


(ROK 


512 002062 


020027 


166000 






COP 


RO, #166000 


513 002066 


001374 








BNE 


1$ 


514 002070 

515 

516 002076 


012737 


00OO01 


001116 




nov 


#1.R0n?IN 


000402 








BR 


3$ 


517 002100 


062706 


0OOOC4 




?$: 


ADD 


#4,R6 


518 002104 


012637 


000004 




3$: 


NOV 


(R6)+,E-RVEC 


519 002110 


012700 


000002 






nov 


#2.R0 


520 002114 


013737 


001114 


003644 




nov 


f.'HSTB.TESTAO 


521 002122 


1327>^ 


000200 


001514 


5$: 


BITS 


«JO.aTESTAO 


522 002130 


001411 








BEO 


7$ 


523 002132 


022;77 


177776 


001504 




C«P 


#-2.aTESTAD 


524 002140 


OO1011 








BNE 


4$ 


525 002142 


050037 


013070 






BIS 


^O.CONFIN 


526 002146 


050037 


001116 






BIS 


RO,ROMFIN 


527 002152 


000404 








BR 


4$ 


528 002154 


050037 


001116 




7$: 


"MS 


RO.ROHFIM 


529 002160 


050037 


013072 






BIS 


RO.DEVFIN 


530 002164 


062737 


000200 


003644 


4S: 


ADD 


#260,TESTAD 


531 0C2172 


006100 
022737 
001347 








ROL 


RO 


532 002174 


174000 


003644 




CNP 


#174000. TESIAO 


533 002202 








BNE 


5$ 


534 002204 


005737 


001116 




RSJMJ 


: TST 


RQNFIN 


535 002210 


001 003 
Ot -3/ 








BNE 


6$ 


536 002212 


002544 






JSR 


PCNORONS 


537 002216 


oa M 








BR 


$EOP 


539 005224 


004? 57 


002632 




6$: 


JSR 


PC. CHECKS 


005737 


001146 






TST 


$PASS 


540 002210 


OC1004 








BNE 


$EOP 


541 00?232 


O0>7i/ 


003146 






JSR 


PC.PRONP 


542 002236 


004737 


012174 






JSR 


PC, SEOTST 



SEQUENCE 1 7 



•* YES USE uei RON NUMBERS 

>* UBI RON MfCERS 

»• BR IF NO TRAP 

SET UP RETt«N VECTOR 

RETUPN 

»• i:/24?.' ;DP«001 

•* NO USE n9312 HCK MUeERS ;DP«001 

••* YES USE 11/2* UBI H<m NUHS ;DP«001 

•* UBI 11/24 ROM MJ«ERS :DPH001 

RESTORE ERROR VECTOR 

CLR SIZING BUFFERS 

HAVE we CLEARED THE WHaE 

BUFFER.NO.GO BACK 

INITIALIZE RQR FOUND INDICATORS 

INITIALIZE ENTRY COUNTER FOR PL^nES SUB. 

tCLEAR SOME NORE LOCATIONS 

SAVE CONTENTS OF LOCATION 4 

♦SET UP FOR POSSIBLE TRAP 

IF CONTENTS = -1 , OR TRAP 

THEN CPU ROR NOT PLUGGED IN 

GET FIRST ADDRESS OF RON SPACE 

IF THIS INSTRUCTION TRAPS CPU HON NOr PLUGGED IN 

HAVE UE CHECKED ALL ACORESSFS 

IF NO THEN CONTINUE LOOPING 

IF NO TRAPS OR LOU BYTE OF FIRST 

ADDRESS NOT EQUAL -1 ASSUME ROM PRESENT 

NO TRAP JUST RESTORE ERRUEL 

+IF TRAP CLEAN OFF PC. PSy 

RESTORE ERRVEC 

INITIALIZE ROR FOUND INDICATOR 

GET FIRST BOOT 

IF LOW BYTE HAS BIT 7 SET 

DO NOT SET ROM FOUND INDICATOR 

UNLESS, CONTENTS OF ADDRESS 

EQUAL TO -2. (CONTINUATION RON) 

+SET CONTINUATION ROM FOUND INDICATOR 

*S€f I.On FOUND INDICATOR 

♦CONTINUE 

SET ROM FOUND INDICATOR 

♦SET DEVICE ROH FOUND INDICATOR 

UPDATE TEST ADDRESS TO NEXT ROH 

UPDATE RON FOUND INDICATOR 

HA'Ji CHECKED ALL THE RONS 

IF NO CCMTlMUe CHECKING 

ARE THERF ANY ROMS AVAILABLE 

IF YES GO Tn ROH TEST 

IF NO GO TEST NO RONS 

GO TO END OF PASS 

GO CALCULATE CHECKSUMS 

ARE WE ON 1ST PASS 

IF NO SKIP PROCESS 0^ PARAMETERS 

GO PROCESS ROM PARAMETERS 

60 CHECK SEQUENCE OF DEVICE CODES 



CZN9BE0 n9i'!2/1U4 KT24 UBl BOO HACRO mi13 
END OF PASS hOUTINE 
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SEQUENCE 18 



543 



.SeTTL END OF PAjS ROUTINE 

;«]NCRE»ttNT THE PASS NUWER (SPASSJ 
;»TyPE "END PASS" 
;»IF THERES A BONITOfi GO TO IT 
;»IF THERE ISN'T JIW TO RSTART 











;*IF IT 


IS DESIRED TO HAVE 


A BELL INDICATE THE 'tNO OF PACS" LOCATION 










:«»EN0«6 CAN BE 


CHANGEO 


TC 


7. 




002242 








SEOP: 












002242 


000240 








NOP 










002244 


00523? 


001146 






INC 


SPASS 






."INCREMENT THE PASS l,*J»BER 


002250 


042737 


100000 


001 1 46 




SIC 


#100000, 


SPASS 


.-.-DON'T ALLOW A NEG. NLHBER 


00?256 


005327 








DEC 


(PC)* 






.-.-LOOP? 


002260 


000001 






SEOPCT- 


.UORO 


1 








002262 


003017 








36T 


SDOAGN 






.-.YES 


002264 


012737 








ROV 


(PC)+.a(PC) 


* 


;; RESTORE COINTER 


002266 


000001 






SENOCT: 


.WORD 


1 








002270 


002260 








SEtPCT 










002272 


104401 


002331 






TYPE 


.fENOMC 






.-.-TYPE "END PASS" 


002276 


104401 


002326 






TYPE 


.SENULL 






.-.-TYPE A NULL CHARACTER 


002302 


013700 


000042 




$GET42: 


.■WV 


»r42.R0 






;;6FT MONITOR ADDRESS 


002306 


001405 








BEO 


SDOAGN 






; .-BRANCH IF NO HONITCR 


002310 


000005 








RESET 








;; CLEAR THE UORLD 


002312 


004710 






SENDAD: 


JSR 


PC.(RO) 






;;G0 TO MONITOR 


002314 


000240 








NOP 








::5AyE ROOM 


002316 


000240 








NOP 








;.-FOR 


002320 


000240 








NOP 








;;ACT11 


002322 








SDCAGN: 












002322 


000137 








JflP 


a(PC)+ 






;; RE TURN 


002324 


002204 






SRTNAD: 


.UDRD 


RSTART 








002326 


377 


377 


000 


SENULL: 


.BYTE 


-1,-1.0 






.-.-NULL CHARACTER STR.;; . 


002331 


015 


012 


105 


SENDMG: 


.ASCIZ 


<15><12>/£ND PASS/ 



; cz«9seo 

IPVfCH «: 

I 

545 
546 
547 
548 
549 
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00P744 
00^:444 



000000 
000000 



000000 

cooooc 



.S8TTL PATCH AREA 
:THIS AREA RESERVED FOR PERMANENT PATCHES. 



SEQUENCE 19 



;DP»W01 



OOOOOO 

oooooo 



PATCrij 



.WORD 
.WORD 



0,0,0.0.0.0,0.0,0,0,0,0.0.0,0.0.0.0.0,0,0,0 :. 0,0,0.0,0,0.0,0,0 
0.0,0,0,0,0,0,0,0,0,0.0,0,0,0,0.0,0,0,0.0,0,0,0,0.0,0.0.0,0.0.0 
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SEQUENCE 20 



550 
551 
552 
553 
554 
555 

556 002SA4 

557 002550 

558 002534 

559 00^560 

560 002562 

561 00256A 

562 002566 

563 Q0?->7i, 

564 002600 
56b' 002604 

566 002610 

567 002612 

568 002616 

569 002620 

570 002624 

571 002626 
572 

573 002630 



.S8TTL NO ROHS TEST 
THIS ROUTINE IS CALLED DNLT 
DURING SIZING. U DOES 
ADDRESSES AND COflPARES THE CONTENTS 
EXPECTED VALUE. 



IF NO ROMS WERE FOUND 
A READ OF ALL BOOTSTRAP ROM 
TO ■, KHOUH 



104401 
012703 
01^704 
1i:l304 
00U06 
011304 
052737 
004'37 
062703 
022703 
001773 
022703 
001770 
022703 
003353 
000207 

000377 



007350 
172000 
002630 



000100 
004344 
OC0002 
173024 

173224 

174000 



001110 



NOfiONS: 
1$: 



2$: 



KV 
HOV 

c<ipe 

BEO 
KOV 
BIS 
JSR 
ADD 
CMP 
BEQ 
CUP 
BEO 
CMP 
BGT 
RTS 



.moim 

»172000,R3 

NODATA, R4 

(R3),R4 

2$ 

(R3),R4 

mOAOHE.ROHERR 

PCERRHAN 

»2.R3 

rh024,R3 

2% 

#1'3224.R3 

2% 

#1 74000, R3 

IS 

PC 



NODATA: .WORD 377 



- TYPE MESSAGE THAT NOROHS F0O« 

SET FIRST ADDRESS TO BE READ 
GET ADDRESS OF EXPECTED VALUE 
♦DOES RECIEVED VALUE EQUAL EXPECTED 
IF YES CONTINUE TESTING 
♦GET BAD VALUE 
IF NO SET ERROR INOICATER 
REPORT ERROR 

♦GET TO NEXT EVEN ADDRESS 
♦AT A VECTOR ADDRESS? 
♦SRANCH IF YES 
♦AT A VECTOR ADDRESS? 
♦BRANCH IF YES 

HAVE ALL ADDRESSES BEEN TESTED 
IF NO 60 TEST THIS ADDRESS 



.♦A HOLE LOOKS LIKE XXX377 
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SEOIJENCE 21 



57A 










.sei 


S75 








;THIS R 


OUTIf 


576 












577 002632 


012737 


000001 


003046 


CHECKS: 


nov 


578 002640 


033737 


003046 


001116 




BIT 


579 002646 


001424 








BEQ 


580 002650 


012737 


165775 


003144 




HOV 


581 002656 


012737 


000000 


003142 




nov 


582 002664 


012737 


165000 


003140 




nov 


583 002672 


004737 


003050 






JSB 


584 002676 


013703 


165776 






nov 


585 002702 


020304 








CHP 


586 002704 


001405 








BEQ 


587 002706 


052737 


000020 


Q01110 




BIS 


588 002714 


004737 


004344 






JSR 


589 002720 


Ci;737 


173000 


003140 


U: 


nov 


590 002726 


012737 


173024 


003142 




nov 


591 002734 


012737 


173175 


003144 




nov 


592 002742 


012702 


173176 






nov 


593 002746 


006137 


00304. 




2$: 


ROL 


594 002752 


033737 


003046 


001116 




BIT 


595 0C276O 


001412 








BEQ 


596 002762 


004737 


003050 






JSR 


597 002766 


011203 








nov 


598 002770 


020304 








cnp 


599 002772 


001405 








BEO 


600 002774 


052737 


000020 


001110 




BIS 


601 003002 


004737 


004344 






JSR 


602 0O3OC6 


062737 


000200 


003140 


3$: 


MD 


603 003014 


062737 


C00200 


003142 




ADC 


604 003022 


062737 


000200 


003144 




ADD 


605 003030 


062702 


000200 






ADD 


606 003034 


022737 


174000 


003140 




cnp 


607 003042 


001341 








HNE 


608 003044 


000207 








His 


609 












610 003046 


000000 






ROnCNT 






CHECKSUM ROMS nOOULE 
OES A CHECKSUn Of ALL RC*(S PRESENT 



<1 .ROHCNT 

ROnCNT.ROnnN 

IS 

#16'='75.LASTA0 

#0,cXCADO 

#165000, FIRSTA 

PC.CALSUn 

16J776,R3 

R3,H4 

IS 

fCRCERR.ROnERR 

p:,erhhah 

»173000,FiaSTA 

#1 73024. cXCATP 

#173175,LAST/- 

*173176.R2 

ROnCNT 

ROnCNT.ROMFIN 

3S 

PC.CALSUn 

(R2) ,H3 

3$ 

«CRCERR,ROnERR 

PC.ERRHAM 

#200, FIRSTA 

#200,EXCaDD 

#200.LASTAD 

#200. f.2 

#174000. FIRSTA 

2S 

PC 



INITIALIZE RON COUNTER 

IS DIAGNOSTIC ROM PRESENT 

IF NO GO CHECKSUM BOOT ROMS 

SET UP LAST ADDRESS TO BE SlfWEO 

SET UP EXCEPTION ADDRESS 

SET UP FIRST ADDRESS TO BE SUPHED 

60 CAL^LiLATE CHECKSUM 

GET EXPECTED CHECKSUM 

COMPARE CHECKSinS 

IF CHECKSIBS COMPARE CONTINUE 

IF ERRCa SET INOICATER 

REPORT ERROR 

SET UP FIRST ADDRESS TO BE SUMMED 

SET UP EXCEPTr-iN ADDRESS 

SET UP LAST Au vRESS TO BE SUnMED 

GET ADDRESS OF GOOD DATA 

UPDATE ROM COUNTER 

IS rrn present 

IF NU, GO UPDATE TO NEXT ROM 

IF rES GO CALCULATE CHECKSUM 

b£T EXPECTED CHECKSUM 

COMPAPr CHECKSIWS 

IF CHECKSUMS EQUAL CONTINUE 

If ERROR SET INDICATER 

REPORT ERROR 

UPDATE FIRST ADDRESS 

UPDATE EXCEPTION ADDRESS 

UPDATE LAST ADDRESS 

UPDATE ADDRESS OF GOOD DATA 

HAVE ALL ROMS BEEN CHECKED 

If NO GO CHECKSUM NEXT ONE 

IF .fS RETURN 



CZN9BE0 H9312/n44 KT2<. UBI BOO MACRO N1113 22-JAN-82 09:18 
CALCULATE CHECKSUMS MODULE 

611 
612 
613 
61 A 
615 

616 0030S0 010246 

617 003052 013700 OO31A0 

618 003056 005004 

619 003060 012005 

620 003062 012702 000P20 

621 003066 0C02A1 

622 003070 0O60O4 

623 003072 006005 

624 003074 102006 

625 003076 012701 120001 

626 003102 040401 

627 003104 04?704 120001 

628 003110 050104 

629 003112 005302 

630 003114 003364 

631 003116 020037 003142 

632 003122 001001 
f."53 003124 005720 

634 003126 020037 003K4 

635 003132 101752 

636 003134 012602 

637 003136 000207 
638 

639 003140 000000 

6^0 003142 000000 

641 003144 000000 



J 2 

PAGE 12 



SEQUENCE 22 



;THIS ROUTINE CALCULATES THE CRC16 CHECICSl*^ OF THE CONTENT"! 

;0F FWFRr LOCATION EXCEPT THE EXCEPTION ADDRESS AND LAST A OHESS 


;0F t 


RY Ron 






CALSlfl: 


nov 


R2.-(SP) 


SAVE R2 




BOV 


FIRSTA. RO 


GET STARTING ADDRESS 




CLR 


R4 


INITIALIZE CRC WORD 


LOOP: 


nov 


'R0)+.R5 


GET A BYTE 




nov 


116., 92 


SET BYTE COUNT 


CRClOP: 


CLC 




THE NEXT NINE LINES 




ROR 


R4 


DO THE HATH CALCULATIONS 




ROR 


R5 






BVC 


1$ 






nov 


#120001. R1 






BIC 


R4.ft1 






BIC 


#150001.R4 






BIS 


R1.R4 




1$: 


DEC 


R2 






BGT 


CRCLOP 






CHP 


RO.EXCADO 


IS NEXT ADDRESS AN EXCEPTION ADDRESS 




BNE 


2S 


IF NO TEST IT 




TST 


(RO)* 


IF YES SKIP ADDRESS 


2S; 


CHP 


RO.LAS:.*'* 


HAVE ALL LOCATIONS BEEN StHHED 




8L0S 


LOOP 


■IF NO CONTINUE 




nov 


(SP)+,R2 


•RESTORE H2 




RTS 


PC 


■IF YES RETURN 


fIRSTA 









EXCAOD 









LAS TAD 
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SEOUENCE 23 



W2 
643 
(At, 
(AS 
646 
647 
648 

649 0O3U6 

650 003152 

651 003154 

652 003160 

653 003164 

654 003166 
i55 003172 
6S« 003200 
65? 0O320? 
656 003206 
659 003210 
6i.0 003214 
661 003216 
652 003222 
663 003224 
66A 003230 

665 003234 

666 003240 

667 003242 
648 003244 

669 003246 

670 003250 

671 003252 

672 003260 

673 003264 

674 003270 

675 003272 

676 003274 

677 003300 

678 003304 

679 003310 
6G0 0C3312 
681 003314 
68^ 003316 

683 003320 

684 303326 
685 

686 003332 

687 003336 

688 003342 

689 003344 

690 003350 

691 003354 

692 003360 

693 003362 

694 003364 

695 003372 

696 003376 

697 003402 

698 003406 



.S8TTL PROCESS ROM PARAMETERS MODULE 
;IHIS ROUTINE DETEHHIMES IF SIZING IS TO BE DONE. IF IT IS THE 
.-nCCULE WILL GET THE PARAMETERS FROM THE DEVCOO AND PPFVAJi 
.-MODULES AND ASSEMBLE MESSAGES TO BE OUTPUT. IF SIZING IS 
.•NOT TO BE DONE THIS MODULE WILL TAKE THE PARAMETERS RECEIVED 
;AND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETASLE. 



105737 
100424 
004737 
004737 
010576 
004737 
032737 
001403 
004737 
000506 
004737 
011176 
005237 
000500 
004737 
012703 
012704 
012402 
020213 
001407 
005714 
001373 
052737 
004737 
062703 
COS 71 3 
001362 
012703 
012704 
062704 
021314 
001407 
005714 
0013^2 
052737 
004737 

062703 
022703 
001360 
00/737 
013704 
013703 
020403 
001405 
052737 
004737 
013704 
013703 
020403 



001161 

a0>426 
003760 

0C3650 

OOOOVO 001110 

004344 

003760 

001112 

003426 
010504 
001224 



000001 001110 

004344 

000004 



PROW: 



001224 
010500 
000004 



000002 001110 
C04344 

000002 
001254 

003650 
001214 
010562 



000Q04 001110 
004344 
001220 
01056'. 



10$: 



1$: 

2i: 
3»: 



4t: 



6$: 



7$: 



8S: 



TSTB 

BMI 

JSR 

JSR 

MES1 

JSR 

BIT 

BEQ 

JSR 

BR 

JSR 

MES2 

INC 

BR 

JSR 

MOV 

MOV 

MOV 

CMP 

BEO 

TST 

BNE 

BIS 

jSR 

ADD 

TS/ 

BNE 

MOV 

MOV 

ADD 

CMP 

BEO 

TST 

ent 

BIS 

JSR 

ADD 
CMP 
BNE 
JSX 
MOV 
MOV 
CMP 
BEO 
BIS 
JSR 
MOV 
MOV 
CMP 



SENVM 

1$ 

PC. DEVCOO 

PC.PUTMES 

PC.PPFVAR 

*PF ERR. ROME RR 

10S 

PC.ERRHAN 

9» 

PC.PUTMES 

HESSAG 

9S 

PC. DEVCOO 

«8Uf1*2.R3 

«SDDU0,R4 

(R4)+.R2 

R2,(R3) 

4$ 

(R4) 

3$ 

»APTER1 .fiOMERR 

PC.fRRHAN 

#4.R3 

(fii) 

3S 

fSDDU0,R3 

#BllF1-2.R4 

«4.R4 

(R3).{'54) 

7$ 

(R4) 

6S 

#APTER2.R0MERR 

PC.EARKAN 

#2,R3 

«SDDW12.R3 

6% 

PC.PPFVAR 

$8ASE.R4 

8UF2.R3 

R4.R3 

at 

fAPTER3.f.0MERR 

PC.ERRHAN 

tCDUl.PA 

BUF2*2,R3 

R4,R3 



IF BIT IS CLEAR SIZE 
IF BIT IS SET DON'T SIZE. 
CALL DEVICE CODE MODULE 
FORMAT PARAMETER MESSAGE 

GO GET PSEUOO POWER-FAIL VECTOR ADDRESS 

UAS THERE AN ERR 

IF NO GO FORMAT MESSAGE 

IF YES GO REPORT MESSAGE 

FORMAT PSEUOO POWER-FAIL VECTOR 

ADDRESS MESSAGE 

SET MESSAGE INDICATOR 

GO TO EXIT 

CALL GET DEVICE CODE MODULE 

GET BOAR J DEVICE CODES .DPMOOI 

GET ETAPXE DEVICE CODE PARAMETERS 

GET ETiiBLE DEVICE COOE 

DO THE TWO DEVICE CODES COMPARE 

IF rES GET NEXT BOARD DEVICE CODE 

IF NO HAVE UE CHECKED THE WHOLE ETABLE 

IF we HAVEN'T CHECK NEXT ETABLE ENTRY 

IF WE HAVE THEN DEVICE COOE ON BOARD 

DOES NOT EXIST IN ETABLE 

UPDATE TO NEXT ADDRESS 

If CONTENTS EQUALS ZERO WE'RE DONE 

IF CONTENTS NO EQUAL ZERO CONTINUE 

GET BOARD DEVICE COOES 

GET ETABLE DEVICE CODES 

GET BOARD DEVICE CODE .DPMOOI 

DO THE TWO DEVICE COOES COMPARE 

IF YES GET NEXT ETABLE DEVICE COOE 

IF NO HAVE ME CHECKED ALL THE BOARD 

DEVICE CODES, IF NO CONTINUE 

IF YES ETABLE DEVICE COOE NOT 

NOT ON BOARD 

INCREMENT TO NEX^ SDOW LOCATION 

HAVE WE CHECKED ALL 12 POSITIONS ;DPM001 

IF NOT. CONTINUE 

GO GET PSEUDO POWER-FAU VECTOR ADDRESS 

GET ETABIE PP'VA 

GET BOARD PPFVA 

DO THE TWO PARAMETERS COMPARE 

IF YES CONTINUE 

SET APT ERROR INDICATOR 

GO TO ERROR ROU'^tNE 

GET ETABLE DATA 

GET BOARD DATA 

DO THE TWO PARAMETtR COMPARE 
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SEQUENCE 24 



6-J9 003A10 00H05 

700 0^3412 052737 000010 

701 005420 004737 004344 

702 003424 000207 



001110 



9S. 



BEQ 
BIS 
JSR 
RTS 



9S 

#APTER4.fiC«ESS 

PCERRHAN 

PC 



;If YES T«N DONE 

;SET APT ERROR INOKATOP 

;G0 TO ERROR ROUTINE 
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S£SUE«£ 25 



703 
70« 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7K 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
726 
729 

730 003*26 

731 00^.^2 

732 0C3436 

733 003442 

734 003444 

735 003452 

736 003456 

737 003462 

738 003466 

739 00347* 

740 003476 

741 003502 

742 003504 

743 003510 

744 003516 

745 003520 

746 003522 

747 003526 

748 003530 

749 003534 

750 003540 

751 003546 

752 003550 

753 003554 

754 003562 

755 003566 

756 003574 

757 003600 

758 003604 

759 005606 



012700 
012701 
030137 
001411 
012757 
013720 
017720 
005037 
013737 
006101 
030157 
001007 
004757 
062737 
096101 
00044* 
005737 
001010 
013720 
017720 
062737 
000427 
013702 
067737 
013703 
042737 
042702 
0*2705 
160203 
005703 



.S8TIL GET DEVICE COOES MODULE 
THIS SUBROUTINE LOCATES EACH DEVICE CODE AND PASSES JT AND THE 
ADDRESS IN WHICH IT WAS FOUND BACK TO I'HE CALLING ROUTINE. 
DATA IS STORED IN BUFFER "BUFI IN THIS FORMAT: 

BUF1: ADDRESS OF FIRST DEVICE CODE 
DEVICE C(»E 

ADDRESS OF SECOND DEVICE CODE 
DEVICE CC»E 



ADDRESS OF NTH DEVICE CODE 
DEVICE COCE 

♦CONTINUATION ROH DATA IS STORED IN 'BUFV AS FOLLOUS: 



CONTINUATION CHIP IDENTIFIER (ALWAYS A ^l) 

DEVICE CODE (pR£/I0US ROH'S DEVICE CODE.OR -•; IF ILLEGAL ROfl) 



010502 
000001 
001116 

16577* 003644 

00564-; 

000162 

0056*6 

00111* 005644 

0'5072 

011714 
000200 0056*4 



0036*6 

0036** 
00010* 
00000? 0036*4 

0056** 

OOC06* 0056*4 



0056*4 
OOOOCI 
170177 
170177 



005644 



If DIAGNOSTIC 

THERE IS noon 

OEVCOD: MOV 

K)\ 

BIT 

BEtl 

nov 

MOV 

MOV 

CLR 

MOV 

ROL 

BIT 

BNE 

JSR 

ADO 

ROL 

BR 

TST 

BNE 

MOV 

MOV 

ADO 

BR 

MOV 

ADD 

MOV 

BK 

SIC 

BIC 

sie 

TSl 



1$: 
5S: 



4$: 



5S: 



6t: 



ROM PRESENT IT WI' L BE THE FIRST DEVICE CODE. 
FOR UP TO 12 DEVICE CODES IN TEMP 

«9Uri,H0 

#1,R1 .-INITIALIZE ROM POINTER 

NI.ROMFIN .IS DIAGNOSTIC ROM PRESENT 

IS .IF NO GO TEST BOOT RQHS 

«1 65774, TESTAD .GET ACDRESS OF OI.'G. ROM DEVICE CODE. 

TESTAO,(RO)+ .STORE ADDRESS OF DEVICE CODE 

aTESTAO,(RO)* .STORE DEVICE CODE 

DAfLAG .CLR DATA TYPE FLAG 

FIRSTB.TESTAO .GET ACORESS OF FIRST BOOT ROM 

R1 .-UPOATF POINTE.t TO NEXT ROM 

RI.OEVFIN .^IS DEVICE aOM PRESENT 

4S :IF YES GO GET PARAMETERS 

PC.C0N1 .♦CHECK FOR CONTINUATICN CHIP 

*200,TESTAO ;IF NO UPDATE TEST AODPESS 

R1 .UPDATE POINTER TO NEXT ROH 

9S :60 SEE IF ALL ROM CHECKED 

DAFLAG .-IF DATAfLAS^O THEN DATA IS DEVICE CODE 

5t ;1F iJA1AfLAG=1 THE DATA IS OFFSET TO NEXT 

TESTAD.(RO)^ .STORE ADDRESS OF DEVICE CODE 

ETESTAO,(RO)^ .STORE DEVICE CODE 

#2,IESTA0 .UPJATE TEST ADDRESS 

8S ;GET OVER SOME CODE 

TESTAD,R2 ;SAVE OLO TEST ADDRESS 

aTESTAD.TESTAD :UP3ATE TO NEW TEST ADDRESS 

:ESTAD,fi3 ;GET THE NEU ADDRESS 

fl.TESTAO :HAKE SURE ADDRESS IS EVEN ;DPM001 

#1?0177,R2 .♦SAVE ONi Y BITS '.8.9,10,11 

*170177,(;3 .♦IN R3 ALSO 

R2,R3 .CALCULATE DISTANCt BETWEEN ADD 

R5 .-IS R3 EQUAL TO 
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760 003610 
7ti 003612 

762 003616 

763 003620 
76*. 003624 

765 003626 

766 003632 

767 00364C 

768 003642 
769 

770 0036A4 

771 0O3646 



001-06 
1C 03 
OOO-OI 
00«'37 
000 .'70 
005(37 
023727 
002716 
000207 

OOOOOO 

oooooo 



000200 

0117A2 

003646 
003644 



174000 





N 2 




113 22-JAN-82 
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BEQ 


0$ 


;IF YES fHEW DONE 


SUB 


#200.R3 


:1F NO TH£N HOVE POINTER 


ROL 


R1 


;0NE 317 FOR EVERY 200 


JSR 


PC,C0N2 


;«CHECK FOA CONTINUATION CHI? 


BR 


6$ 




at: con 


DAfLAG 


.CHANGE DATA FUG TO RIGHT DATA TYP 


-'t: CMP 


TESTAD. #174000 


.HAVE UE CHECKED ALL THE ROM 


BLT 


35 


:IF NO CONTINUE 


RTS 


PC 


:'.f YES RETURN 


TESTAD: 






DAFLAG: 







SEQUENCE 26 
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SEQUENCE 27 



774 
775 
776 
777 
778 
77V 
780 
781 

782 0036SO 

783 003656 
TV, 003660 

785 003666 

786 003672 

787 003700 

788 003706 

789 003710 

790 003716 

791 003720 

792 003726 

793 003732 

794 003740 

795 003746 

796 003750 

797 003756 



• SSTTL StT P$£UC0 P<«)»-fAlL VtCTOU AOOKESS WUTlMt 
THIS SIBWJTINI TESTS LOCATICHS 173024 AM 173224 TO DETEWUME 
WlCh VECTOR KILL BE USED IT FOUEA-^AJL OPTJON ENA8LE0 ON THE 
BOARD. THE OPTim MUST BE ENWLED AMD AT LEAST ONE AOORE:iS 

swiTCK Hjnr ai •rsf- or an erw will 6t detected. 

THE data UILL BE RETURNED IS "BUfr* IN THE FOWWr. 



rnjfi: 



PSEUOO POyER-fAlL VECTOR ADDRESS 
CONTENTS Cf VECTOR AOORESS 



022737 


173000 


173024 


W»FVAa: 


CPP 


001414 








Bca 


012737 


003710 


013064 




NOV 


004737 


1^024 






JSA 


012737 


010562 




NOV 


0'.5737 


173024 


01C564 




WV 


or^7 








BR 


173000 


173224 


IS: 


CHP 


001414 








BEO 


012737 


003750 


013064 




mv 


004737 


012020 






JS« 


012737 


173224 


010562 




NOV 


013737 


173224 


01056^ 




HOV 


000403 








m 


052737 


000040 


001110 


2$: 


flIS 


000207 






31: 


RTS 



»1/3000, 173024 

IS 

flS.^ETURN 

PCJ«LCK1 

»1*3024,BUf2 

1 73024 ,aUF2*2 

3S 

#173000,173224 

2S 

«2S,RETURN 

PC,H0LCK2 

f1?3224,BUf2 

1 73224. BUf 2*2 

3S 

fPFEM.RONERR 

PC 



- TEST If LOCATION 173024 SELECTED 

If WT THEN GO TEST LOCATION 173224 

«SET UP (M ALTERNATE RETlMl 

♦CHECK fOR A HOLE 

if IT IS THEN STORE 0BOKSS 

STORE CONTENTS Of LOCATION 173024 

GO TO RETUM 

-TEST If LOCATION 173224 SELECTED 

IF NOT THEN SET ERROR INDICATOR 

♦SET \r AN ALTERNATE RETVfM 

♦CHECK fOR A HOLE 

If IT IS THEN STORE ADDRESS 

STORE CONTENTS Of VECTOR 

SET OVER ERROR 

SET ERROR INDICATOR 



CZB9BE0 n9312/1U4 ICT2; UBI BOO HACRO mil? 
PUT MESSAGE IN BUFFER ROUTINE 
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SEQUENCE 28 



798 
799 
800 
SOI 003760 

802 00376A 

803 003770 

804 003772 

805 003776 

806 0040G2 
8>)7 004006 
80>^ 004010 

809 004014 

810 004016 

811 004024 

812 004026 

813 004032 

81 4 004034 

815 004040 

816 004042 
81/ 004046 

818 004052 

819 004054 

820 004060 

821 004062 

822 004064 

823 004066 

824 004072 

825 004076 

826 004100 

827 004104 

828 004110 

829 004116 

830 004124 

831 004130 

832 004134 

833 004140 

834 00414' 

835 004150 

836 004154 

837 004156 

838 00416? 

839 004166 

840 004172 
341 004176 

842 004202 

843 004206 

844 004210 

845 004214 

846 0042 

847 0042 

848 0042 

849 004234 

850 004236 

851 004240 

852 004242 
353 004244 
854 004250 



.SBTTL PUT MESSAGE IN BUFFER ROUTINE 
.-THIS SUBROUTINE FORMATS THE PARAMETER AND POUER-FAIL MESSAGES. 



017604 
005737 
001125 
005t37 
012703 
022713 
001027 
105737 
001412 
122737 
001 003 
012705 
000405 
012705 
000402 
012705 
004737 
000015 
062703 
000313 
112324 
112324 
012705 
004737 
000015 
012701 
0-i3702 
012737 
012737 
112724 
112724 
004737 
062713 
004737 
004737 
000011 
112724 
112724 
112724 
062713 
004737 
004737 
000011 
112724 
112724 
11272* 
112724 
062703 
000313 
112324 
r2324 
000730 
012703 
012705 



oon2e 



000000 
004342 

004342 
010502 
165774 

001122 

000001 

007465 

007524 

007444 
004772 

000002 



007600 
004772 

000001 

013104 

004124 013064 

004310 013102 

000015 

000012 

2056 

000004 

005140 

004772 

000040 
000040 
000040 
O0GOO2 
005140 
00;772 

000040 
000040 
000040 
000011 
000002 



98$: 



010562 
007735 



PUTME3: MOV 
TST 
BNE 
INC 
MOV 
CMP 
PHE 
TSTB 
BEQ 
CMP8 
BNE 
MOV 
BR 
MOV 
BR 
100S: MOV 
101$: JSR 
CR 
ADD 
SUAB 

Mova 

HOVB 
1$: MOV 

JSR 
CR 
MOV 
MOV 
MOV 
MOV 
2$: MOwe 

M0V8 
JSR 
ADD 
JSR 
JSR 
HT 

M0V8 
M0V8 
MOVB 
ADD 
JSR 
JSR 
H'. 

MOVB 
MOVB 
MCV8 
MOVB 
ADD 
SUAB 
MOVB 
MOVB 
BR 
MOV 
MOV 



3$: 



a(R6),R4 

TIMES 

3$ 

TIMES 

#BUF1,R3 

«16577^,(R3) 

1$ 

CPUTyp 

100$ 

#1, CPUTYP 

98$ 

#DRH44.R5 

101$ 

«DRH24,R5 

101$ 

«I>RHEA0.R5 

PC.FILBUF 

#2,R3 

(fO) 

(R3)+.<R4)+ 

(R3)*.(R4>+ 

#BRHEA0,R5 

PC.FILBUF 

f1,R1 

MESSPT.R2 

«2$.RETURN 

«5$. FINISH 

«CA.(R4)* 

fLF.(i»4)* 

PC.ROMTYP 

f4.(R3) 

PC.OCAOD 

PC.FILBUF 

«40.(R4)«^ 

«40,(R4)» 

#40. (R4)* 

#2.(R3) 

"C.OCADD 

PC.FILBUF 

«40.(R4)« 
«40.(R4)» 
#40,(R4)t 
#HT.(R4)* 
#2.R3 

(r3>+,(R4/* 

{R3)».(R4)t 

2$ 

#8Ur-2.R3 

»PFHEAD,R5 



GET MESSAGE BUFFER ADDRESS 

IS THIS FIRST TIME THROUGH 

IF NOT FIRST TIME THEN FORMAT POWER-FAIL MESSAGE 

TOGGLE WATCHDOG 

GET DATA BUFFER ADDRESS 

IS DIAGNOSTIC ROM PRESENT 

If NOT DON'T FORMAT DIA6. ROM MESSAGE 

SEE IF A NON-n/24/44 CPU 

BRANCH OVER 11/24/44 SECTION IF SO 

SEE IF AW 11/44 

BRAkCH IF NOT TO SETUP FOR 11/24 

GET DUG. ROM MESSAGE HEADER 

BRANCH TO PUT HEADER IN MESSAGE BUFFER 

GET DIAG. ROM MESSAGE HEADER 

BRANCH TO PUT HEADER IN MESSAGE BUFFER 

IF IT IS GET DIAG. ROM MESSAGE HEADER 

GO PUT HEADER IN MESSAGE BUFFER 

.-SKIP OVER ADDRESS OF ASCII 
.-FORMAT ASCII FOR MESSAGE 
.-PUT ASCII IN MESSAGE BUFFER 



;G0 PUT BOOT ROH HEADER IN MESS. 3UF . 



DPM001 
DPM001 
DPMOO' 
DPflOOl 
OPBOOI 
DPM001 
DPMOOI 
DPMC01 



+POINT TO DIAGNOSTIC ROM 
♦POtNT TO MSG TABLE 
+SET UP AN ALTERHA.E RETURN 
>SET UP ANOTHER ALTERNATE RETURN 
PUT A CR/LF HERE 

♦FIND THE ROM TYPE 

GET FIRST ENTRY POINT 

GO CONVERT OCTAL ^0 ASCII 

GO PUT ENTRY POINT IN MESSAGE BUF 



.-GET SECOND ENTRY POINT 

;G0 CONVERT OCTAL TO ASCII 

: GO PUT ?NTRY POINT IN MESSAGE BUF . 



PUT TAB IN HERE 
UPDATE tATA BUFFER ADDRESS 
FORMAT «CII FOR MESSAGE 
MOV ASCII TO MES1 

;60 BACK TO START OF LCOP 

.-GET DATA BUFFER ADDRESS 

;viET POWER-FAIL HEADER ADDRESS 



CZMSeEO W3'i2/1H4 KT24 UBI BOO »WCRO HIIIS 
PUT BESSA6E IN B'JFFER ROUTINE 



855 004254 

856 00^260 

857 004262 

858 004266 

859 004270 

860 004274 

861 004300 

862 004302 

863 004306 

864 004310 

865 004314 

866 004320 

867 004322 

868 004330 

869 004332 

870 004334 

871 004340 

872 004342 



004737 004772 

000015 

022703 010566 

0014 lO 

004737 005140 

004737 004772 

000O11 

062703 000002 

000765 

112''24 000015 

112724 000012 



1'15024 
- >37 



0176: 

104401 

OOOOOO 

062716 000002 

000207 

OOOOOO 



OOOOOO 004332 



4$: 



5$: 



6$: 



TIMES 





3 


22-JAN-82 
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JSR 


PC.FILBUf 


CR 




CNP 


*8UF2K,R3 


BEQ 


5$ 


JSR 


PC. or ADO 


JSR 


PCFILBUF 


HT 




ACD 


f2,fi3 


9R 


4S 


«)V8 


»CR,(R4)* 


M0V8 


fLF,(R4)+ 


CLRB 


(R45* 


mv 


a(R6),6S 


TYPE 




.UORD 





AOC 


«2.(H6) 


RTS 


PC 


.: 





SEQUENCE 29 



;G0 r-UT POWER-FAIL HEADER IN WSSA6E BUF. 

;AB'i UE DONE 

:!'■ YES THEN GO RETURN 

:',0 CONVERT OCTAL TO ASCII 



.•UPDATE DATA 6<;'FE9 ADDRESS 
;G0 BACK TO START OF LOOP 
;PUT ' l/LF AT END OF flESSAGE 

;PUT ZtRO TERBINATOR AT END OF BESSAGE 
.-GET MESSAGE BUFFER ADDRESS 



.-GET OVER MESSAGE SUFFER ADDRESS 



aWKO B9312/1144 K''24 U81 BOO RACRO W113 
ERROR HANDLER ROUTINE 



E 5 
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SEOUtNCE 50 



873 










.S8TTL 


ERROR HANDLER 


874 








.-THIS 


SUBROUTINE FOfiJMTS THE ! 


875 








.-OUT. 






S76 004344 


104411 






ERRHAN 


: SAVREG 




877 004346 


012704 


011276 






nov 


fERRBSG .R4 


878 004352 


005237 
032rv 


001120 






INC 


ERfiCNT 


879 004356 


002000 


174520 




aiT 


#BIT10,3Sii.i 


880 004364 


r-"402 








BEO 


IS 


881 00436A 


•| u^401 








TYPE 




882 0043/0 


007344 








BELL 




883 004372 


032777 


020000 


174504 


1$: 


BIT 


f8IT13.asyR 


884 004400 


001402 








BEO 


0VER1 


885 004402 


000137 


004722 






J«P 


0VER10 


886 004406 


013700 


001110 




0VER1: 


mv 


RQHERR.RO 


887 004412 


013737 


001110 


004710 




«0V 


RQnERR,0VER9 


AM 004420 


012701 


004744 






nov 


«HEADT.R1 


889 004424 


000241 








CLC 




890 004426 


006000 






2S: 


ROR 


RO 


891 004430 


105403 








8CS 


5S 


892 0%432 


0627^1 


000002 






ADD 


#2,R1 


893 004436 


000773 








8fi 


2S 


894 004440 


011105 






5$: 


MOV 


(R1).R5 


895 004442 


004737 


004772 






JSR 


PC.FIL8UF 


89< 004446 


000015 








CR 




89? 004450 


052737 


000040 


001110 




BIT 


#PFERR,ROHERR 


898 004456 


001065 








LNE 


8$ 


899 004460 


032757 


003600 


001110 




BIT 


#3600.R0»«RR 


900 004466 


001411 








BEO 


US 


901 004470 


013737 


013076 


004506 




mv 


A»G2.15S 


902 0OU76 


013705 


013074 






TOV 


*kG1,R5 


903 004502 


004737 


004772 






JS.< 


PC.FILBUr 


904 004506 


000000 






13t: 


.WORD 





905 004510 


000450 








BR 


8S 


906 0045i2 


032737 


000025 


001110 


14$: 


BIT 


«25,R0HERR 


907 004520 


001426 








BEO 


7$ 


908 004522 


052737 


000020 


001110 




PIT 


«20,ftOMERR 


909 004530 


001417 








BEO 


6$ 


910 004532 


013700 


005046 






NOV 


ROnCNT.RO 


911 004536 


013701 


007176 






MOV 


R0HF1R.R1 


912 004542 


000241 








CLC 




913 004J44 


006000 






4S: 


ROR 


RO 


914 004546 


103403 








BCS 


5S 


915 004550 


062701 


000002 






ADD 


«2.R1 


916 004554 


000775 








BA 


4$ 


917 004556 


011101 






5J: 


ncv 


CRU.R1 


918 004560 


112124 






55S: 


nova 


(R1)t.(R4)« 


919 0W562 


105711 








TSTB 


(R1) 


920 004564 


C01575 








BNE 


55$ 


921 004566 


000421 








Bfi 


8$ 


922 004570 

923 004572 


112324 






6$: 


novB 


(R3)»-(«'.)* 


112324 








«0V8 


(R3)+,(R4)* 


924 0C4574 


000416 








BK 


8$ 


925 004576 




000006 




7J: 


mv 


6(R6>.R3 


926 004602 


004737 


(;05054 






JSR 


PC.OCASC 


92' 004606 
928 004612 


004737 


004772 






JSR 


PC.FIL8UF 


0OCO11 








HT 




929 004614 


016603 


OOOOiO 






«ov 


10(R6).R3 



THEfl 



INCREHENT ERROR COUNTER 
BELL ON ERROR 
BRANCH IF NO 



INHIBIT ERROR TTPEOUT 
NO 60 THROUGH 

GE"^ ERROR CODE 

SAVE ERROR CODE FOR APT 

GET ERROR HfAOER TABLE 

C-filT USED TO STOP STEPPING THROUGH TABLE 

ROTATE ERROR CODES 

IF C-eiT SET STOP STEPPING 

If C-eiT CLEAR STEP TO NEXT HEADcR 

GO STEP 

PUT HEADER ADDRESS 1.^ REGISTER. 

GO PUT HEADER IN ERR(3R MESSAGE BUF. 

♦IS JT A "TPFVAR" ERROR? 

♦BRANCH IF rES 

♦IS IT A "SEOTSr" ERROR? 

♦BRANCH IF NO 

♦PUT *CR OR /THT AT 13$ 

♦ARG1 CONTAINS ADR. OF HSG 

♦PUT DATA INTO BLf FER 

♦CONTAINS CR OR HT 

+ 

♦IS ERROR A CRC, ^TERI OR APTt.<2 

IF NO GO FORMAT A?'TER5. APTER4 

IS ERROR CRC 

IF NO FORMAT APTER1, APTER2 

GET ROn COUNTER 

GET ROM NUMBER TABLE 

C-8IT USED TO STOP STEPPING THROUGH TABLE 

ROTATE ROM NUMBER 

IF C-flIT SET STOP STEPPING 

IF C-filT CLEAR STEP TO NEXT ADRS 

CONTINUE STEPPING 

MOVE ADDRESS TO R1 FROM TABLC .DPMOOI 

PUT ROM NUBER IN ERROR MESSAGE SUF 

SEE IF TERMINATOR .-DPMOOI 

BRANCH BACK IF NOT .-DPMOOI 

GO TO END OF ROUTINE 

PUT BAD DEVICE CODE IN ERROR MESS. BUF. 

60 TO END OF ROUrrVE 

GET SAVED EXPECTED VALUE 

GO COVERT OCTAL TO ASCII 

GO PUT DATA IN ERROR MESSAGR BUF 

GET SAVED RECEIVED VALUE 



CZWBCO B9312/1U4 KT24 uei 
ERROA HANDLER ROUTINE 



930 0O<620 

931 00^624 

932 OOiSo 

933 (XK632 

934 004636 

935 004642 

936 00464f 

937 004652 
93* 004654 

939 004660 

940 0O4666 

941 004670 
942 

943 004676 

944 004700 

945 004702 

946 004706 

947 004710 
94« 004712 

949 004714 

950 004720 

951 004722 

952 004730 

953 004732 

954 004734 

955 004740 

956 004742 
957 

958 

959 004744 

960 004746 

961 004750 

962 004752 

963 0O47S4 

964 0O47S6 

965 004760 

966 004762 

967 004764 

968 004766 

969 004770 



■TOO MACRO nil 13 22-JAN-82 09:18 



F 3 

PAGE 17-1 



SEOUEMCE S^ 



004737 


005034 




JSR 


PCOCASC 


004737 


004772 




JSR 


PCFILBUf 


000011 






HT 




112724 
112724 


000015 


8S: 


mvB 


#CR,(R4)* 


000012 




«0V6 


#Lf.(R4)> 


112724 


OOOOOO 




ncv8 


«,(fi4)* 


005737 


001160 




TST 


»ENV 


001002 






BNE 


0VER2 


000137 


004714 




JHP 


0VER11 


022737 


000001 001116 


0VER2: 


C«? 


r.ROHFIN 


001005 






BNE 


APOUHO 


032737 


000040 001110 




BIT 


#f'FERK.ROHERR 


001401 






SEO 


AROUND 


00O40S 






BR 


OVER 11 


004737 


005540 


AflOUHO: 


JSR 


PC.SATYI 


011276 






ERRHSG 




OOOOOO 




0VER9: 


.WORD 





OOOOOO 






HALT 




004737 


005546 


0VER11: 


JSR 


PC.$ATY3 


011276 






ERRMSG 




032777 


100OOO 174154 


OVER10: 


BIT 


#BIT1S,8SWft 


001401 






BEO 


12$ 


OOOOOO 






HALT 




005037 


001110 


12$: 


CLR 


ROHERR 


104412 






RESREG 




000207 






RTS 


PC 


010036 




EHEACT: 


£R1«SG 




010002 






ER2WG 




010074 






ER3nSG 




010152 






ER4nSG 




010226 






CRCMSG 




010252 






PFHSG 




010330 






NOROm 




010406 






SEOHSG 




013164 






ERR5S1 




015243 






ERrtES2 




013323 






ERHES3 





GO COVERT OCTAL TO ASCII 

60 PUT DATA IN ERROR HESSAGE BUFFER. 

PUT CR/LF AT END OF MESSAGE 

PUT TERMINATOR AT END OF MESSAGE 
TST IF ON APT 
I^ YES BRANCH 
IF NO BRANCH 

- ONLY A CPU ROM?????? 
-IF NO BRANCH 

- NOW IF YES .IS POy£R- 

- FAIL VECTOR THE ERROR???? 

- YES .WELL THEN IT'S 

- NOT A REAL ERROR . CONTINUE 
GO REPORT ERROR 



.-THEN HALT 

;IF NOT ON APT JUST REPORT ERROR 

;IS HALT ON ERROR SET 
;IF NO SKIP OVER HALT 

.-CLEAR ERROR FLAGS 



CZWBEO «312/nA4 KT2^ -JBI BOO MACRO mi13 
FILL BUFFER ROUTINE 
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SEOUEMCE 32 



970 
971 
972 
973 

974 0<K772 

975 005000 

976 005002 

977 005006 

978 005010 

979 005014 

980 005020 

981 005022 

982 0C5024 

983 005026 

984 005032 



.SSTTL FILL BUFFER ROUTINE 
.-THIS SUBROUTINE FILLS THE FIESSAGE BUFFER WILL ASCII 
;CHARACTERS. 



02^776 
001003 
112724 
0C:404 

112524 
105715 
001375 
062716 
000207 



00001 1 OOOOOO 

000011 

000015 
000012 



OC0002 



FIL8UF. 


CNP 


#HT,a(R6) 




BNE 


IS 




nov6 


#HT.(R4)* 




BR 


?» 


i;.- 


B0V8 


fCR,<R4)+ 




novB 


fLF,(R4)* 


2$: 


mv8 


(R5)*,(R4)* 




TST8 


(R5) 




BNE 


2S 




ADO 


4r2.(R6) 




RT, 


PC 



IS FIRST CHARACTER A TAB OR CR 
IF CR THEN 60 PUT Cfi/LF IN BUFFER 
IF TAB THEH PUT TAB IN BUFFER 
GET OVE^! NEXT LINE 
NOV CR/LF TO BUFFER 

PUT „ CHARACTER IN KSSA5E BUFFER 

iS NEXT CHARACTER ZERO 

IF NOT PUT IT IN MESSAGE BUFFER AAH) GET NEXT 

UPDATE RETURN POINTER TO GET OVER v:HARACTER 

THEN RETURN 



CZK9BE0 B9312/T:44 ICT24 ub: BOO wco mii3 
OCTAL TO ASCI! COmikSiOH ROUTINE 
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SEQUENCE 33 



985 
9S6 
987 
988 

989 OO503A 

990 M5040 

991 005042 

992 00504* 
9v3 005046 

994 005050 

995 00505* 

996 005060 

997 005062 

998 005066 

999 005070 

1000 005074 

1001 005076 

1002 005102 

1003 005104 

1004 005110 

1005 005112 

1006 005116 

1007 005120 

1008 005124 
IOC' 005126 

1010 005132 

1011 005134 

1012 005136 



0127DO 
005020 
005020 
005020 
005020 
012700 
010337 
000241 
006137 
006110 
1'2710 
005200 
020027 
001003 
012705 
000207 
006137 
106110 
006137 
106110 
006137 
106110 
000755 
OOOOOO 



010566 



010566 
005136 

005136 

000060 

010574 

010566 

005136 

005136 

005136 



.SSTTw OCTAL ^0 ASCII CONVERSION ROUTINE 
;THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER ANO 
.■CONVERTS IT TO 6 ASCII CHARACTEPS 

.-GET SUFFER ADDRESS 
.-CLEAR BUFFER 



OCASC- 


BOV 


WCTBUF.RO 




CLR 


(RO)* 




CLR 


(RO)* 




CLR 


(RO)* 




CLR 


(RO)* 




»fOV 


fOCTBUF.RO 




Boy 


R3.TEW> 




CLC 






ROL 


TEW 




ROL 


(RO) 


1S: 


BISS 


#60, (RO) 




INC 


RO 




CW 


R0,*OCTeUF*6 




BNE 


2$ 




mv 


fOCTBUF.RS 




RTS 


PC 


2J: 


ROL 


TEW 




Roia 


(RO) 




ROL 


TEW 




ROLS 


(RO) 




ROL 


TEW 




ROLB 


CRO) 




Bfi 


It 


TEMP: 








GET BUFFER ADDRESS 

GET OCTAL NinER 

CLEAR CAiWy 

RCTATE BIT INTO CARRY BIT 

ROTATE CARRY BIT INTO BUFFER 

HAKE IT ASCII 

UPDATE BUFFER ADDRESS 

HAVE WE CONVERTED ALL THE NUPCER 

IF NO CONTINUE 

IF YES PUT BUFFER ADDRESS IN REGISTER 

RETURN 

ROTATE BIT INTO CARRY BIT 

ROTATE Carry BIT INTO BUFFER 



GO TO START OF LOOP 



CZB9BE0 B9312/11U KT24 IBI 800 MACRO miH 22-JAN-82 09:18 
ROUTINE TO SETUP R5 FOR Tlic OCTAL TO ASCII ROUi IN£ 



I 3 

PAC-E 20 



SEOUENCE 3* 



1013 
10U 
1015 
1016 

1017 005UO 

1018 005U2 

1019 OOSU* 

1020 oosrso 

1021 005152 



.S8TTL ROUTINE 10 SET'IP R3 FOB THE OCTAL TO ASCII ROUTINE 
.•THIS ROUTINE IS CALLED BY THE PUT MESSAGE ROUTINE TO GET THE RIGHT 
.-VALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER. 



010346 
011303 
004737 

012603 
000207 



OCADD: 



003034 



nov 

BOV 
JSP 
flOV 
RTS 



R3.-(R6> 

(fi3/.R3 

PCOCASC 

(H6)*.R3 

PC 



SAVE THE VALUE OF R3 

PUT THE DATA TO BE CONVERTED IN ft3 

GO CONVERT OCTAL TO ASCII 

RESTORE R3 

RETLWN 



CZIWetO W9312/1144 KT24 UBi 300 fWCRO Bill 3 
TYPE ROUTINE 



J 3 
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SEQUeNCE 35 



1??2 









.-•CALL: 












.••1) USING A :rap instruction 








• * 


;rPE 


.MESADR 








••CR 














TYPE 










;* 


WSAjR 




005 ISA 


105737 


005533 


STYPE: 


TfTB 


$TPFLG 


005160 


100002 






BPL 


1$ 


005162 


000000 






HALT 




005164 


000430 






BR 


3$ 


005166 


010046 




1*: 


nov 


RO.-(SP> 


005170 


017600 


000002 




NOV 


a2(SP).R0 


005174 


122737 


000OO1 001160 




CHP8 


fAPrENV,$ENV 


005202 


001011 






BNE 


62$ 


005204 


132737 


000100 001161 




BIT8 


#APTSPO0L.$ENV«1 


005212 


001405 






BEQ 


62$ 


005214 


010037 


005224 




nov 


R0.61$ 


005220 


004737 


0C5346 




JSR 


PC.$ATY3 


005224 


000000 




6U: 


.WORD 


C 


005226 


132737 


000040 001161 


62$: 


Bire 


#APTC5UP.$ENV« 


oo*":. 


:>01003 






BNE 


60$ 


005236 


112046 




2$: 


novb 


(fiO) + ,-(SP) 


005240 


001005 






BNE 


4$ 


005242 


005726 






TST 


(SP) + 


005244 


C12600 




60$: 


nov 


(SP)*.RO 


005246 


062716 


000002 


3$: 


ADD 


#2,(SP) 


00525? 


(X>0002 






RTI 




00525'. 


122716 


000011 


4$: 


C«P8 


fHT.(SP) 


005260 


001430 






BEQ 


8$ 


005262 


122716 


occ;oo 




C«P8 


#CflLf,(SP> 


005266 


001006 






BNE 


5$ 


005270 


005726 






1ST 


(SP)» 


005272 


104401 






TYPE 




005274 


005535 






$CRLf 




005276 
005302 


105037 


005514 




CLRB 


$CHAflCNT 


00755 






BR 


2$ 


005304 


0(^737 


005366 


5$: 


JSfi 


PC.JTYPEC 


005310 


123726 


0055?2 


6$: 


ewe 


$fILLC,(SP 


005314 


001350 






BNE 


2$ 


005316 


013746 


00550 




MOV 


tNULL.-(SP) 


005322 


105366 


000001 


7$: 


DECS 


KSP) 


005326 


002770 






BLT 


6$ 


005r 


004737 


005366 




JSR 


PCJTYPEC 


005:-. 


105337 


005514 




DECB 


tCHARCNT 


005340 


000770 






BR 


7$ 








:H0RIZ0NTAL TAB PROCESSOR 


005342 


112716 


000040 


hi: 


NOVB 


»' .(SP) 



.S8TTL TYPE ROUTINE 

;iRCOTINE TO TYPE ASCIZ BESSAGE. MESSAGE HUST TERMINATE WITH A BYTE. 
.-•THE ROUTINE WILL INSERT A NUHBER OF NULL CHARACTERS AFTER A LINE FEED. 
;»N0TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

;«N0'E2: $FILLS CONTAINS THE MUBER OF FILLER CHARACTERS REQUIRED. 

.••N0TE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



.-nESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 

8R IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

SET ADDRESS OF ASCJZ STRING 

RUmiNC IN APT MODE 

NO. GO CHECK FOR APT CMSOLE 

SPOOL MESSAGE TO APT 

NO, GO CHECK FOR CONSC. E 

SETUP HESS>i6E ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDAESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

Pl-SH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

JF NO GO GET NEXT CHAR. 

GET f OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

COES A NULL HEED TO BE TYPED? 

BR IF K>0— GO POP THE NULL OFr OF STACK 

GO TYPE A NULL 

00 NOT COUNT AS A COUNT 

LOOP 

REPLACE TAB W11H SPACE 



K 3 
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SEQUENCE 36 



005346 


004727 


005366 




9$: 


JSR 


PC.$TYPEC 


.-.-TYPE A SPACE 




005352 


132737 


000007 


005514 




BITS 


#7,$r'<AfiCNT 


.-.-BRANCH IF NOT AT 




005360 


001372 








8NE 


9$ 


.-.-TAB STOP 




005362 


005726 








TST 


iSP)* 


.-.-POP SPACE OFF STACK 




005364 


000724 








BR 


2S 


.-.-GET NEXT CHARACTER 




005366 








JTYPEC: 










005366 


105777 


0OC126 






TSTB 


aSTKS 


.-.-CHAR IN KYBO BUFFER? 


HJD001 


005372 


100022 








BPL 


10$ 


;;8R IF NOT 


PUD001 


005374 


017746 


000122 






KOV 


aSTKB.-CSH 
#1 7766c, (SP) 


.-.-GET CHAR 


HJ0001 


005400 


042716 


177600 






SIC 


.-.-STRIP EXTRANEOUS BITS 


mjDOOl 


005404 


122716 


000023 






CHP8 


#$X0FF,(SP) 


.-.-WAS CHAR XOFF 


njDOO! 


005410 


001012 








BNE 


102$ 


.-.BR If NOT 


HJDOOl 


005412 








101$: 








HJD001 


005412 


105777 


000102 






TSTB 


asns 


.-.-WAIT FOR CHAR 


JUDOOl 


C0S416 


100375 








BPL 


101$ 




MJDOOl 


005420 


117716 


0OC076 






novs 


a$TKB.(SP) 


;.-6ET CHAR 


HJDOOl 


005424 


042716 


177600 






BJC 


*177660,(SP) 


;. -STRIP IT 


HJDOOl 


005430 


122716 


000021 






ewe 


«$X0N,(SP> 


.-.WAS IT XON? 


HJDOOl 


005434 


001366 








BNE 


101$ 


.-.-B« IF NOT 


HJDOOl 


005436 








102$: 








HJDOOl 


005436 


005726 








TST 


{SP) + 


.-.-FIX STACK 


■HJDOOl 


005440 








10$: 








-HJDOOl 


005440 


105777 


000060 






TSTB 


a$TPS 


.-.-WAIT UNTIL PRINTER IS BEADY 




005444 


100575 








BPL 


10$ 




-HJDOOl 


005446 


126627 


000002 


000021 




CHP3 


2(SP).#$X0N 


.-.-IS CHARACTER A RANPOn XOi.? 


-RANOOl 


005434 


001420 








BEO 


$'YP£X 


.•;BRANCH IF VES 


-RANOOl 


005456 


116677 


000002 


000042 




novB 


2(SP).a$TPB 


.-.-LOAD CHAR TO oC ^YPEf) INTO DATA REG. 




oc;>.64 


122766 


000015 


000002 




cnP8 


*CR,2(SP) 


.-.-IS CHARACTER A CARNiAGE RETURN? 




005472 


001003 








BNE 


1$ 


.-.-BRANCH IF i« 




005474 


105037 


005514 






CLftS 


$CHARCNT 


.-.-YES— CLEAR CHARACTER COUNl 




005500 


C ;406 








BR 


$TYPEX 


.-.EXIT 




005502 


1<:2766 


000012 


000002 


1$: 


CHP8 


4rLf,2(SP) 


.-.-IS CHARACTER A LINE FEED? 




005510 


001402 








BEa 


$TYPEX 


.-.-BRANCH IF YES 




005512 


10J227 








INC8 


(PC;* 


.-.COUNT THE CHARACTER 




005514 


000000 






$CHARCNT:.U(WD 





.-.-CHARACTER COUNT STORAGE 




005516 


000217 






ITrPEX: 


RTS 


PC 






005520 


177500 






$TXS: 


.WORD 


1 77560 


.-.-TTY KD8 STAT'-S .NJDOOI 




005522 


177562 






$TKfi: 


.WORD 


177562 


;;TTY K80 BUF5c.» ;FUD001 




005524 


177564 






$TPS: 


.WORD 


177564 


.-.TTY PRINTER STATUS REG. ADDRESS 




005526 


177566 






$-P8: 


.WORD 


177566 


::TTY PRINTER BUFFE<« REG. ADDRESS 




005530 


000 






$MJLL: 


.arTE 





;:CONTAINS NU'.L CHARACTER FOR FILLS 




005531 


002 






$flLLS: 


.BYTE 


2 


;.-CON!AINS « Q' FILLER CHARACTERS REQUIRED 


005532 


012 






$FILl':. 


.BYTE 


12 


;.INSERT FILL CHARS. AFTER A "tlNE FEE— 




005533 


000 






STPFLG. 


.BYTE 





;.-'7ERHINAL AVAILABLE" FLAG (BIT<07>=0=V 


ES) 


005534 


077 






$QUES: 


.ASCII 


..,.. 


:. -QUESTION HAn^ 




005535 


015 






$CRLf: 


.ASCII 


<i5> 


;.-CARRAIGE RETURN 




005536 


012 


000 




$U: 


.ASCIZ 


<12> 


;.- LINEFEED 
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SEQUENCE 37 


APT CC»«UN1 CAT IONS ROUTINE 














1024 








.^TTL 


APT rOWlUNI CAT IONS ROUTINE 






0O55W 


112737 


0OO0C1 


006004 


UtyI : 


hCV8" 


*1.«FFLG ;; 


TO REPORT FATAL ERROR 




0055*6 


112737 


oooo-,i 


006002 


MTr3: 


nov8 


#1.JHfLG ;; 


TO TY.'E A HESSAGE 




0O55S4 


0O«03 








BR 


$ATYC 






0055S6 


112737 


oooeoi 


006004 


SATY4: 


NOVB 


»1,$FfL6 


TO ONLY REPORT FATAL ERROR 




0055M 








SATYC: 










005SM 


010046 








BOV 


RO.-(SP) 


PUSH fiO OH STACK 




005566 


OlCUi 








HOV 


R1,-(SP) 


PUSH Rl ON STACK 




005570 


105737 


006002 






TSTe 


SHfLG 


SHOULD TYPE A HESSAGE? 




005574 


OOU50 








BE9 


5$ 


IF NOT: BR 




005576 


122737 


0OO001 


oo-:i60 




CMP9 


fAPTENV.$ENV 


OPERATING UNDER APT? 




005604 


001031 








8NE 


3$ 


■F NOT: BR 




005606 


132737 


0OO10O 


001161 




81 T8 


#APTSP00L.«ENVH ;. 


SHOULD SPOOL HESSAGES? 




005614 


0OU25 








BEO 


3$ 


IF NOT: BR 




005616 


017600 


000004 






nov 


a4(SP),R0 


GET HESSAGE AODR. 




005622 


062766 


000002 


0OC004 




ADD 


2.4{SP) 


.-.BUHP RETURN ADDR. 




005630 


005737 


001140 




1$: 


TST 


$HSGTYPE ;. 


SEE IF BONE W/ LAST XHISSION? 




005634 


0C1375 








BME 


1$ 


IF NOT: WAIT 




0056% 


010037 


001154 






BOV 


RO.SHSGAO ;. 


PUT AODR IN MAILBOX 




005642 


105720 






2$: 


TSTB 


(r6)* 


FIND END OF HESSAGE 




0C5644 


001376 








8NE 


2$ 






005646 


163700 


001154 






SUB 


$nSGAO,R0 


SUB START OF HESSAGE 




005C52 


006200 








ASR 


RO 


GET MESSAGE LNGTH IN WORDS 




005654 


010037 


001156 






«CV 


R0,$HS6LGT 


PUT LENGTH IN HAILSOX 




005660 


012737 


000004 


001140 




nov 


*4.$HSGTYPE 


TELL APT TO TAKE HSG. 




005A66 


000413 








9R 


5$ 






005670 


017637 


000004 


005714 


- -*- 


MOV 


a4(SP).4$ 


PUT HSG ADDR IN JSR LINKAGE 




005676 


062766 


000002 


000004 




ADD 


#2.4 (SP) 


:;BLI1P RETURN ADDRESS 
PUSH 177776 ON STACK 




005704 


013746 


177776 






HOV 


177776, -(SP) 




OC5710 


004737 


005154 






JSR 


PC.STYPE 


CALL TYPE HACRO 




005714 


OOOOOO 






4S: 


.WORD 









005716 








5S: 










005716 


105737 


006004 




10$: 


TST8 


$ffLG 


SHOULD REPORT FATAL Ef«ROR? 




005722 


001416 








BEO 


12$ 


IF NOT: BR 




005724 


0O573" 


DOT 160 






TST 


$ENV : 


RUNNING UNDER APT? 


i 


005730 


001413 








BEO 


12$ 


15 HOT: BR 


1 


005732 


005737 


001140 




IIS: 


TST 


$«SGTYPE 


•FINISHED LAST HESSAGE? 




005736 


001375 








BME 


11$ 


•IF NOT: WAIT 




005740 


017637 


000004 


001142 




nov 


a4(SP).$fATAL ; 


•GET EHROR « 




005746 


062766 


000002 


COC004 




ADD 


f2.4(SP) 


;;BUWP RETURN ADDR. 




005754 


005237 


001140 






INC 


WISCTYPE 


•TELL APT TO TAKE ERROR 




005760 


105037 


006004 




12$: 


CLRB 


$FFLG 


•CLEAR FATAL FLAG 


i 


005764 


105037 


006003 






CLRB 


$LFL6 


•CLEAR ICG FLAG 




005770 


105037 


006002 






CLR8 


$WLG 


•CLEAR HESSAGE FLAG 




005774 


012601 








nov 


(SP)+, R1 ; 


•POP STACK INTO Rl 




005776 


012600 








HOV 


(SP) t.RO ; 


;P0" STACK INTO RO 




006000 


000207 








RTS 


PC ; 


;Rt:TURN 




006002 


OOO 






$«fL6.- 


BYTE 





;H£SS6. FLAG 




006003 


OOO 






$LFLG: 


.a»TE 





;LOG FLAG 




006004 


OOC 

000200 
0O0001 






IffLG: 

APTSUI 

APTENV- 


.8YTE 
=001 


; 


;F »TAL FLAG 






0O0100 






APTSPOOL=100 










000040 






APICSUP=040 
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SEOOewCE 38 



006006 
0060K 
006016 
006022 
006024 
006030 
006034 



022737 
00107^ 
105777 
1000/1 
H7746 
0«.2716 
022726 



000176 001104 

177476 

1/7472 
177600 
000007 



S8TTL TTY INPUT ROUTINE 

ENABL LSS 

*SOFTyARE SUiTCH REGISTER CHANCE ROUTINE. 

*ROUTiNE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

*SERVICE THE TEST FOR CHANGE IN SOFTUARE SUITCH REGISTER TRAP CALL 

•WHEN OPERATING IN TTY FLAG HOOE. 



iCKSUR: 



006040 


001062 






006042 


123727 


0O1100 000001 




006050 


001456 






006052 


104401 


006543 




006056 


104401 


006550 


SGTSl 


006062 


013746 


000176 




006066 


104402 






006070 


104401 


006561 




006074 


005046 




19$: 


C06076 


005046 






006100 


105777 


177414 


7$: 


006104 


100375 






006106 


117746 


177410 




006112 


042716 


177600 




006116 


021627 


000025 


9$: 


006122 


001005 






006124 


104401 


C06536 




C06130 


062706 


000006 


20S: 


006134 


000757 






006136 


021627 


000015 


10$: 


00CH2 


001022 






006144 


005766 


000004 




006150 


0014(3 






006152 


0166/7 


000002 172724 




006160 


062706 


0OO0Q6 
005535 


11$: 


006164 


104401 


14$: 


006170 


12372r 


001101 xnooi 




006176 


001003 






006200 


012777 


000100 177312 




006206 


000002 
004737 




15$: 


006210 


005366 


16$: 


006214 


021627 


000060 




006220 


002420 






00622^ 


02162" 


000067 






005015 






042726 
005766 


000060 




006?54 


000002 




006240 


001403 






006242 


006316 






006^44 


006516 






006246 


^Vd 






006250 


000002 


17$: 



CNP 

BNE 

TSTB 

BPL 

H0V8 

eic 

CAP 
BNE 

cive 

BEQ 

TYPE 

TYPE 

NOV 

TYPv,C 

TYPE 

CLR 

CLR 

TST8 

BPL 

novB 

BIC 

CHP 

BNE 

TYPE 

ADD 

8ft 

CNP 

BNE 

Ts: 

BEQ 

NOV 

ADD 

TYPt 

CHPB 

BNE 

NOV 

RTI 

.ISR 

CNP 

BLT 

CM" 

BGT 

BIC 

TST 

9E0 

ASL 

ASL 

ASL 

INC 



tSWREG.SWR 
15$ 
a$TKS 
15$ 

a$Tw,-(SP) 

fC177,(SP) 

#7.(SP>+ 

15* 

$AUT0e.«1 

155 

,$CNILG 

,$nsuR 

SWRE6,-(SP) 

,$nNEU 

-(SP) 

-ISP) 

a$TKS 

7$ 

a$TIC8,-(SP) 

f*C177.{SP) 

(SP),»25 

10$ 

,$CNTLU 

#6,SP 

19$ 

<SP),fl5 

16$ 

iisy) 

11$ 

2(SP).asuR 

«6,SP 
,$CRLF 
$INTAG,i;l 
15$ 

«ioo.a$TKS 

PC-$TYPEC 

(SP), *60 

18$ 

(SP).#67 

18$ 

«60,(SP)» 

2(SP) 

17$ 

<SP) 

(SP) 

(SP) 

2(SP> 



IS THE SOFT-SUR SELECTED? 

BfiAMCH IF NO 

CHAR THERE? 

IF NO, DON'T WAIT tJiOuhi, 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL 67 

NC, RETURN TO uSER 

ARE WE RUMING IN AUTO-NODE? 

BRANCH IF YES 

ECHO TF« CON'ROi -G (*G) 

TYPE CURPENT tffJTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE—OCTAL ASCIKaLL DIGITS) 

PROMPT FOR NEl 5WR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 

PICK UP CHAFI 

NAkE IT 7-p;t .\SZ11 

IS IT A Cor<TROt-U? 

BRANCH IF NOT 

YES. ECHO CONTROL HI CU) 

IGNORE PRcVIOUS 1W>UT 

LET'S TR' IT AMIN 

IS IT A <CR>? 

BRANCH ' F NO 

YES. IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE fcV SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-EMABLE TTY K8D INTERRUPTS? 

BR/VCH IF NOT 

RE-f:NABLE TTY KBO INTERRUPTS 

RETURN 

ECHO CHAR 

CKAR < 0? 

BTMNCH IF YES 

CHAR > 7? 

'iRANCh IF YES 

STRIP-OFF ASCI! 

IS THIS THE FIRST CHAR 

BAANCH IF YES 

NO, SHIFT PRESENT 

CHAA OVER TO HAKE 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 



aK9B£0 M9312/1 


'44 Kr24 
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SEQUENCE 39 




TTY INPUT ROUTINE 
















006254 


056616 


177776 






BIS 


-2(SP),(SP) 


;SE1 IN NEW CKAR 




006260 


000707 








BR 


7J 


;6E1 THE NEXT ONE 




006262 


104401 


005334 




18$: 


TrPE 


.iWf.S 

5oi 


.TYPE ?<CR><LF> 




006266 


000720 








BR 


; SIMULATE CONTROL -U 












.DSASL 


csa 


»***«**44#** >•*•*•* 














•iTHIS 
.-•CALL: 


ROUTINE 


«fL. INPUT A SIN6LE CHARACTER fROH THE TTY 












RDCHR 


. 


.INPUT A SIN6LE CHARACTER FROM THE TTY 












;• 


RETURN H'jRE 


.-CHARACTER IS ON THE STACK 












;• 






.-WITH PAP'TY BIT STRIPPED OFF 




006270 


011646 






iSDr.W: 


nov 


(SP),-(SP) 


.-PUSH DOW THE PC 




006272 


016666 


000004 


000002 




mv 


4(SP5.2(Sr') 


.-SAVE THE PS 




006300 


105777 


177214 




IS: 


TST8 


aSTKS ; 


.-WAIT FOR 




006304 


100J75 








BPL 


1$ 


;A CHARACTER 




006306 


117766 


177210 


000004 




novB 


aST(C8.4(SP) ; 
*''C<177>,4(SP) ; 


.READ THE TTY 




006314 


042766 


177600 


;.;oo4 




BIC 


:6ET RIO OF JUNK IF ANY 




006322 


026627 


000004 


000023 




CHF 


4(SP),*2S 


.-IS IT A CONTROL-S? 




006330 


001013 








BNf 


3S 


,-aRANCH IF NO 




O0A3W 


105777 


177162 




2$: 


TST8 


aSTKS 


.-WAIT FOR A CHARACTER 




006336 


100375 








BPL 


2$ 


.-LOOP UHTIL ITS THERE 




006340 


117746 


177156 






'«V8 


a*T)tB.-<SP) 
»*C17>,(SP) 


;6ET CHARACTER 




006344 


042716 


177600 






BIC 


;«AKi IT 7-eiT ASCII 




006350 


022627 


000021 






CHP 


(SP)*,#21 


.-1? IT A CONTROL-0? 




006354 


0C1566 








BNE 


2$ 


:U NOT DISCARD IT 




006356 


000750 








BR 


IS 


.-Y' RESIPE 




006360 


026627 


000004 


000021 


3$: 


CMH 


4(SP),fSX0N 


.-J^ T A RANDOM XON? :RAN001 




006366 


001744 








BEO 


IS 


.-BRAN:H if yes ;RAN001 




006370 


026627 


000004 


000140 




CW> 


4 (SP). *140 


;iS IT UPPER CASE? 




006376 


002407 








BLT 


4S 


.-BRANCH IF YES 




006400 


026o27 


000^04 


000175 




CHP 


4 <SP) .#175 


.IS IT A SPECIAL C«AR? 




006406 


003003 








8GT 


4t 


.-BRANCH IF YES 




006410 


042766 


000040 


000004 




SIC 


#40.4 <SP) 


,-FWCE IT UPPER CASE 




006416 


000002 






4S: 


RTI 




:60 BACK TO USER 
























•iTHIS 


ROUTINE WILL INPUT A STRING FROM THE TTY 












.••CALL 


















;* 


ROLIN 


- 


; INPUT A STRING FROM THE TTY 












;• 


RETURN HERE ; 


;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 












iflDLTN 






.-TERMINATOR WILL 3E A BYTE OF ALL O'S 




006420 


010346 






NOV 


R3,-(SP) 


;SAVE R3 




006422 


012703 


006526 




IS: 


NOV 


#STTYIN,R3 


:6ET ADDRESS 




006426 
006432 


0^2703 
101405 


006536 




2$: 


CM> 


#STTyiN*8.,R3 


;8UfFER FULL? 










BLOS 


4S 


;8R IF YES 




006434 


104407 








SDCHR 




.-GO READ ONE CHARACTER FROM THE TTY 




006436 


112613 
122?13 
001003 








iWVB 


(SP)*, (R3) ; 


.-GET CHARACTER 




006U0 


00017/ 




10S: 


ewe 


•177. (R3> 


.-IS IT A RIBOUT 




006444 








BNE 


3S 


.-SKIP IF NOT 
.TYPE A ■?^ 




006446 104401 


005S34 




4$: 


TYPE 


,SOUES : 




00645c 


000763 
111317 








BR 


.-CLEAR THE 3UfF£R AND LOOP 




006454 


E 




3S: 


nov8 


(R3).9S 


.ECHO THE CHARACTER 




§3iji« 


]^m 






TYPE 

CURB 


t9i 

#15, (R3)* 


.-CHECK FOR RETURN 




006470 


00135^ 








BNE 


2S ; 


.-LOOP IF NOT RETURN 




006472 


10506.1 
lO'.TOl 


177777 






CL.Tfl 


-liRJ) 


.-CLEAR RETURN (THE 15) 






005536 






TYPE 


.SLF 


.TYPE A LINE FEED 
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TTY IttV! ROUTINE 












C06S02 


01?603 






«ov 


(y>)*.R3 


.RESTORE B3 


006:04 


011646 






nov 


(SP),-(SP) 


; AC JUST THE STACK AND PUT ACORESS Of 


006506 


016666 


000004 


000002 


«ov 


4(SP5,2(SP) 


: FIRST ASCII CHARACTER ON IT 


006SU 


012766 


006526 


000004 


wv 


#$TTYIN,4(SP) 




006522 


000002 






RTl 




;RETl*« 


006524 


000 




9$: 


.BYTE 


; 


;ST0RA6C FOR ASCII CHAR. TO TYPE 


006525 


000 






-BYTE 


c 


jTERmfMTOR 


096526 
0G6536 






STTriN: 


.9UCB 


8. 


.-RESERVE 8 BYTES FOR TTY I(*»UT 


156 


125 


015 $CNTLU: 


.ASCII 


/nj/<i5><i2> 


.CONTROL 'V 


006543 


136 


107 


015 $CHTL6: 


.ASCII 


/*6y<15><12> 


.CONTROL •^- 


006550 


015 


Oli 


123 tRSUI>: 


.ASCII 


<l5><12>/SyR - 1 




006561 


040 


040 


r6 SfWEU: 


.ASCII 


/ nev = / 





:£OUEI»CE 4C 



THE 
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SEQUENCE 41 



1028 



.S8TTL BINARY TO OCTAL (ASCII) Af© TYPE 

•WhIS routine is USED TO CHAK-3E A 16-f T BINARY NUHBER TO A 6-DIGir 
.♦OCTAL (ASCII) NlflBER AND TYPE IT. 

;»$TYP03 ENTER HERE TC SETUP SUPPRESS ZEROS AND NlfBER OF DIGITS TO TYPE 

.••CALL: 



TYPOS 
.BYTE 
.BYTE 



Nl*1,-(SP) 
N 



NUMBER TO BE TYPED 

CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

fl=1 OR 
;* ;;1:TYPc LE.^DING ZEROS 

;• .•;0=:SUPPRESS LEADING ZEROS 

•» 

.••tTYPON ENTER HERE TO TYPE OUT WITH THE SAW PARAMETERS AS THE LAST 

:*$TYPOS a-^ $TYPOC 

.-•CALL: 

;• nOV Nl«.-(SP) ;;Nl*eER TO BE TYPED 

;• TYPON ;;CALI FOR TYPEOUT 

• • 

••S'^YPOC ENTER HERE FOR TYPEOUT OF A 16 BIT HIHJER 

NUmER TO BE TYPED 
CALL FOR TYPEOUT 
PICffUP THE NODE 
LOAD ZERO FILL SWITCH 
NlfBER OF DIGITS TO TYPE 
ADIUST RETURN ADDRESS 

SET THE ZERO FILL SWITCH 

SET FOR SIX(6) DIGITS 

SET THE ITERATION :Ol«T 

SAVE ft3 

SAVE R4 

SAVE RS 

GET THE NUMBER OF DIGITS TO TYPE 

SUBTRACT IT FOR KAX. ALLOWED 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INTUT NUWBER 

CLEAR THE OUTPUT WORD 

ROTATE BS8 INTO "C " 

GO DC KB 

FORM THIS DIGIT 



GET LSB UF THIS DIGIT 

TYPE THIS DIGIT? 
;BR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

BR IF YES 

;00n't SUPPRESS ANYMORE O'S 
iHAJCE THIS DIGIT ASCII 
;HAKE ASCII IF NOT ALREADY 









;^CAlL: 












;• 


>WV 


Nl#1.-(SP) 








• * 


TYPOC 




006572 


017646 


000000 


iTYPOS: 


nov 


8(SP),-(SP) ':': 


006576 


116637 


000001 007015 




novB 


USP) .SOFILL 


006604 


112637 


007017 




B0V3 


(SP)+. $Onoc:*1 ;; 


006610 


062716 


000002 




ADO 


»2.{SP) 


006614 


000406 






BR 


STfPON 


006A16 


112737 


0OC001 007015 


S1YP0C: 


novB 


#1,$0FILL 


006624 


112737 


000006 007017 




mvs 


#6.$onooE+i 


r'6632 


112737 


000005 007014 


STYPON: 


W3V8 


#5,$0CNT 


006640 


010346 






nov 


R3, -(SP) 


006642 


010446 






nov 


R4, -(SP) 


006644 


01 0546 






nov 


R5.-(SP) 


006646 


113704 


007017 




nova 


t0H0DE+1.R4 


006652 


005404 






NEG 


R4 


006654 


062704 


000006 




ADD 


#6.R4 


006660 


110437 


007016 




novB 


R4.$OnOO£ ;; 


006664 


113704 


007015 




novB 


t0FILL.R4 ;; 


006670 


0166C5 


000012 




NOV 


12(SP).R5 ;; 


006674 


005003 






CLR 


R3 


006676 


004105 




1$: 


ROL 


R5 ;; 


006700 


000404 






a? 


3$ ;; 


006702 


006105 




2»: 


ROL 


R5 ;; 


006704 


006105 






ROL 


R5 


006706 


004105 






ROL 


R5 


006710 


0'0503 






nov 


R5.R3 


006712 


006103 




3$: 


ROL 


R3 ;; 


006714 


105337 


007016 




DECS 


SOnODC 


006720 


100016 
042703 






BF-L 


7$ 


006722 


177770 




BIC 


#1 77770, R3 ;; 


006726 


001002 






BNE 


4» 


006730 


005704 






TST 


R4 


006732 


001403 






REO 


5$ 


006734 


005204 
C52703 




4$: 


INC 


R4 


006736 


000060 




BIS 


»'0,R3 


006742 


052703 


000040 


5$: 


BIS 


*• .R3 











D 4 
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BINARY TO OCTAL 


(ASCII) 


AND TYPE 






006746 


110337 


007012 


nov8 


R3,8$ 
,8i 

iOCNT 


006752 


10*401 


007012 


TYPE 


006756 


105337 


007014 7$: 


DECS 


006762 


003347 




BGT 


2$ ;.•( 


006764 


002402 




BlT 


6S ;;( 


006766 


005204 




INC 


R4 


006770 


000744 




BR 


2S 


006772 


012605 


6$: 


NOV 


(SP)*.P5 ;;I 


006774 


012604 




MOV 


(SP)*,R4 


006776 


01 2603 




HOV 


CSP)+.R3 


007000 


016666 


000002 000004 


BOV 


2(SP),4(SPJ 


OCOOft 


012616 




BOV 


{SP)+,(SP) 


C07010 


000002 




RTI 


;; 


007012 


000 


8$: 


.BYTE 





OC7013 


000 




.6YTE 





007014 


GOO 


SOCNT: 


.BYTE 





007015 


OOO 


$0?ILL: 


.BYTE 





007016 


OoOOOO 


SOMODE: 


.WORD 






SEQUENCE 42 



SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF 00»i£ 

INSl«£ UST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE RS 

RESTORE R4 

RESTORE R3 

SET THE STACK FOR RETURNING 

'RETURN 

;ST0RA6E FOR ASCII DIGIT 

TERBIMATOR FOR TYPE R0(JTINE 
;0CTAL DIGIT CtHJNTER 

ZERO FILL SWITCH 
IWJMBER OF DIGITS TO TYPE 
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SAVE AND RESTORE R0-R5 


ROUTINES 








1030 






sara 


SAVi ArtO ftESTOBE RO-RS 








****************************** 








VSAVE 


ao-R5 










•CALL: 












■» 


SAVREG 










»UP0N 


RETURN FROM SSAVREG THE 








• TOP— 


-{+16) 










. ♦2— 


~f+18> 










« +4— 


•-R5 










• *6 fi4 










. +8- 


-R3 










•+10— 


~R2 










•+12— 


~R1 










•+14 RO 




007020 






JSAVREG: 




007020 


01 '3046 






HOV 


RO,-<SP) 


007022 


010146 






HOV 


R1,-CSP) 


007024 


010246 






(•OV 


R2.-(SP) 


007026 


010346 






NOV 


R3,-(SP) 


007030 


010446 






NOV 


R4.-CSP) 


007032 


010546 






NOV 


R5,-(SP) 


007034 


016646 


000022 




NOV 


22{SP),-(SP) 


007040 


016646 


000022 




NOV 


22(SP>.-{SP) 


007044 


016646 


000022 




NOV 


22(SP).-(SP) 


007050 


016646 


000022 




NCV 


22(SP),-(SP) 


007054 


000002 






RTl 










; •RESTORE R0-fi5 










.-•CALL 












-* 


RESREF 




007056 






WESPE6: 




007056 


012666 


000022 




NOV 


(SP)+.22(SP) 


007062 


012666 


000022 




NOV 


{SP)+.22(SP) 


007066 


012666 


000022 




NUV 


(CP)+.22(SP) 


007072 


012666 


000022 




NOV 


(JP)+.22(SP> 


007076 


012605 






NOV 


(SP)+,K5 


007100 


012604 






NOV 


(SP)+. R4 


007102 


012603 






NOV 


(SP)+. R3 


007104 


012602 






<K)V 


(SP) ♦.R2 


007106 


012601 






NOV 


(SP) +.R1 


007110 


012600 






NOV 


ISPi* RO 


007112 


0000^2 






RTJ 





SEQUENCE 43 



ROUTINES 



STACK WILL LOOK LIKE: 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 
SAVE 
SAVE 
SAVE 



RO ON STACK 
R1 ON STACK 

R2 yj sta;k 

R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
PS OF KAIN FLOW 
PC OF BAIN FLOW 
PS OF CALL 
PC OF CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF NAIN FLOW 
RESTORE PS OF PtAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK IWO Hi 
POP STACK INfO R1 
POP STACK INTO RC 
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1036 



007114 010046 

007116 016600 000002 

007122 005740 

0071?'. 111000 

007126 006300 

007130 016000 007150 

007134 000200 

007136 011646 

007140 015666 000004 

007146 000002 



s8ttl trap decoder 

Whis routine will pickup the lower byte c- the 'trap" instruction 

•ANO USE it to index through the trap table fO« THE STARTING ADDRESS 
»0F THE DESIRED ROUTINE. THEN USIIW3 THE ADDRESS OBTAINED IT WILL 
»G0 TO THAT ROUTINE. 
STRAP: m\ RO.-(SP) ;;SAyE RJ 

;;6ET TRAP ADDRESS 
;; BACKUP BY 2 
;;GET RIGHT BYTE OF TRAP 
.-.-POSITION FOR INDEXING 
;; INDEX TO TABLE 
;;GG TO ROUTINE 
"GETPRI" HACflO 



000002 



007150 
007152 
007154 
007156 
007160 
007162 
007164 
007166 
007170 
007172 
007174 



007136 
005154 
006616 
006572 
006632 
006056 
006006 
006270 
006420 
007020 
007056 



;;THIS 
$TRAP2 



S8TTL 
•THIS 
•BY 



RO.-(SP) 
2(SP),R0 
-(RO) 
(RO).RO 
RO 

».RPAD(RO) 
ftO 
TO HANDLE THE 



RO 



my 

BOV 
TST 

novB 

ASL 

BOV 

RTS 

IS USE 

nov (s?),-(SP) 

WV 4(SP).2(SP) 

RTI 

TRAP TABLE 
TABLE CONTAINS THE STARTING ADDRESSES 
THE '7RAP" INSTRUCTION. 
ROUTINE 



MOVE THE PC DOWN 
;;«Oyc THE PSW DOWN 
;; RES TORE THE PSW 



OF THE ROUTINES CALLED 



STRPAD: .WORD $TRAP2 

STYPE .-.-CALL-TYPE TRAP+1(l0440T ^ TTY TYPEOUT ROUTINE 

STYPOC ;;CALL=TYPOC TRAP+2( 104402) TYPE OCTAL NIMBER (WITH LEADING ZEROS) 

STYPOS ;;CALL=TYPOS TRAP+3 ( 1 04403) TYPE OCTAL MJBER (NO LEADING ZEROS) 

STYPON ;;CALL=TYPON TftAP+4(104404) TYPE OCTAL MfOER (AS PES LAST CALl ) 

$GTSWfi ;;CALL=GTSWR TRAP*5( 104405) GET SOfT-SWR SETTING 

SCKSWR .-;CALL=CKSUR TRAP^6( 104406) TEST FOR CHAn-GE IN SOFT-SWR 

WOCHR ;.-CALL=RDCHR TRAP»7( 104407) TTY TYPEIN CHARACTER ROUTINE 

SHDLIN ;.-CALL=R5LIN TRAP*10 (104410! TTY TYPEIN STRING ROUTINE 

$SAVREG ;;CALL=SAVRE6 TfW>*11 (104411) SAVE R0-fi5 ROUTINE 

SRESREG ::CALL=RESkEG TRAPt1<:(104412) RESTORE RO-RS ROUTINE 
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SEOUtNCE 45 



1038 .SSTTL MESSAGES 

1039 007176 007332 ROHPTR: .WORD ROWftJH 
10<iO 007200 0A5 O70 GOO AROHIIr .ASCIZ /58/ 

1041 007203 064 070 000 AR0H21 : .ASCI2 .'^8/ 

1042 007206 064 071 OOO AfiOWl: .AiCIZ /49/ 

1043 007211 065 060 OOO A«0H41: .ASCIZ IS"! 

1044 007214 065 071 OOO AROWI : .ASCIZ /5v,' 

1045 007217 062 O60 OOO BftOHII: .ASCIZ /2C/ ;«• ;DP«001 

1046 007222 063 065 040 BOTHSI: .ASCIZ /35 OR 75/ ;•» .DPPOOI 

1047 O07'?33 063 063 040 BR0M31 : .ASCIZ '33 OR 89/ ;•• ;DP>i.001 

1048 007244 063 064 040 3«0'»41: .ASCIZ /34 OR 82/ ;»* .tPWOI 

1049 007255 063 062 040 BR0H51: .ASCIZ /32 OR 83/ ;•• .DPMOOI 

1050 007266 062 060 000 9M9M\: .ASCIZ /20/ 

1051 007271 063 065 000 RHNUPIJ: .ASCIZ /35/ 

1052 007274 063 063 000 Rmuti: .ASCIZ /33/ 

1053 007277 063 06'. 000 RHNU14: .ASCIZ /34/ 

1054 007302 063 06c" 000 R«Hl»!5: .ASCIZ /32/ 

1055 .EVEN 

1056 007306 007200 007203 007206 AftOH: .WORD AR0«11,AR0((21 ,AR0«1,ARC«41 .AR0H51 

1057 007320 007217 007222 0C7233 BROH: .WORD 3R0H11,BROB21.BRQ«1.8R0K41.BROH51 
1053 007332 00726^ 007271 007274 ROmUM: .WORD Rmif^1.RHNUH2,Rmun3.RnNim.RnNin5 

1059 007344 207 377 377 BELL: .ASCIZ <207><377><377> 

1060 0C7350 012 015 116 HNORH .ASCIZ <12><15>/N0 RQHS RESPONDED TO THE SIZING ROUTINE/<12><15> 
i061 007424 054 040 105 ERL: .ASCIZ /, ERROR LINE # / 
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1062 










.S8TTL 


1063 0O7<,A« 


104 


111 


101 


DRUEAO: 


.ASCJ2 


1064 007465 


104 


111 


101 


DfW44: 


.ASCII 


1065 007524 


104 


111 


101 


DRH24: 


.ASCII 


1066 007600 


012 


102 


117 


BRHEAO: 


.ASCII 


1067 007656 


114 


117 


103 




.ASCIZ 



ASCIZ MESSAGES 

/D1A6. ROH: E20 / 

/DIAG. ROR FOfi 11-44 UBI: E58 / ;»• ;PPH001 

/DJAG. ROM FOR 11-24 ICT24: E74. M9312: £58 / ;DP«001 

<12>/BO0T$TRAP ROM ENTRY POINTS AND DEVICE C00£S.'<15><12> 

/LQC. NO DIAG. RUN DIAG. DEVICE CODE/ 
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ASCIZ MESSAGES 

aPSEUOO POWER-FAIL VECTOR ADR. /NEW PC8 I 

/COULD MC^ FIND DEVICE CODE / 

/FOUND UNEXPECTED DEVICE CODE / ! 

/PCWER-FAIL VECTOR E>lROa/<15><12> i 

/ EXPECTED R5CIEVED/<15><12> I 

/POWER- FAIL DATA ERR0«/<15><12> 

/ EXPECTED RECI£V£D/<15><12> 

/CRC EPROR IN nm E-/ 

/COULD HOT DETERfllNE POWER-FAIL VECTOR ADDRESS/ 



1069 007735 


12C 


123 


105 


PFHEAO: 


.ASCiZ 


1070 010002 


103 


117 


125 


£fi2KG: 


.ASCIZ 


1071 010036 


106 


117 


125 


ER1HSG: 


.ASCIZ 


1072 010074 


120 


117 


127 


ER3HSG: 


.ASCII 


1073 010125 


Oil 


105 


130 




.ASCIZ 


1074 010152 


120 


117 


127 


ER4K36: 


.ASCII 


1075 01 0201 


Oil 


105 


130 




.ASCIZ 


1076 010226 


103 


122 


103 


CRCKSG: 


.AiClZ 


1077 010252 


103 


117 


125 


PFMSG; 


.A5C1Z 
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SEQUENCE «3 



1079 010330 


116 


117 


0*0 NOAOm: 


ASCi; 


1080 01035* 


0*0 


0*0 


0*0 


.ASCJZ 


1081 010*06 


015 


012 


122 SEwrS: 


.ASCII 


1082 010*51 


111 


116 


123 


.ASCJZ 


1083 






.EVEN 




108* 










1085 










1086 






;8UfFE«!S 


1087 










1088 010502 


0OOO3Q 




BUFl: 


.REPT 


1090 010502 


OOOOOO 






.WORD 


01050* 


OOOOOC 






.WORD 


010506 


OOOOOO 






.WORD 


010510 


OOOOOO 






.WORD 


0-0512 


OOOOOO 






.WORD 


010'-* 


OOOOOO 






.WORD 


01C5 .> 


OOOOOO 






.WORD 


010i<!0 


OOOOOO 






.WORD 


010522 


OOOOOO 






.WORD 


01052* 


OOOOOO 






.WORD 


010526 


OOOOOO 






.WORD 


CI 0550 


OOC-,00 






.WORD 


010532 


OOOOOO 






.WORD 


01053* 


OOOOOO 






.WORD 


010536 


OOOOOO 






.WORD 


0105*0 


OOOOOO 






.WORD 


0105*2 


OOOOOO 






.WORD 


01054* 


OOOOOO 






.WORD 


0105*6 


OOOOOO 






.WORD 


010550 


OOOOOO 






.WORD 


010552 


OOOOOO 






.WORD 


01055* 


OOOOOO 






.WORD 


010556 


OOOOOO 






.WORD 


010560 


OOOOOO 






.WORD 


1091 010562 


OOOOOO 




eUF2: 


.WORD 


1092 01056* 


OOOOOO 






.WORD 


1093 010566 






OCTBUF: 


.BLKB 


109* 010576 






HESI: 


.BUOB 


1095 011176 






BfS2: 


.BLJCS 


1096 011276 






ERRBS6: 


.BLKB 



/NO ROUS TEST E.'WOR/<15><12> 
/ VALUE AO0RES3/<1S><12> 

<15><12>/R0fl SEOUENCE IS INCORRECT AS PER / 
/IrlSTALLATION PROCEDURE./ 



1097 
1098 
1099 
1100 
1101 
1102 
1103 
110* 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 



30 






















c 















10 

*00 

100 

*00 



*lHi FOLLOWING CODE WAS ADJED IN REV 80: 

♦"CLEAR" CLEARS THE NEW LABEL AND BUFFER LOCATIONS 

♦ 

♦"C0N1" AND "C0N2" FILL "BUFI" WITH THE CONTINUATION R0« DATA AND 

♦SET ERROR FLAGS WHEN NECESSARY 

♦•WLCIfl" AND ■H0LCK2" CHECK FOR HOLES TO VERIFY THE POWER FAIL 

+VECTOK ADDRESS; ALSO SET 11/40 INDICATOR WHEN APPLICABLE 

+ 

♦"UOMTrP" AND "I^OHNH" FiLL THE HESSAGE BUFFER WITH A CONTINUATION ROM 

♦MESSAGE AND WITH A KOM IDENTIFICATION MESSAGE 



J 



czmeeo W9312/114 

ASCIZ MESSAGES 

1116 011676 

1117 011702 
1113 011704 

1119 011710 

1120 011712 
1121 

1122 011714 

1123 011720 

1124 011722 
1125 

1126 011724 

1127 011730 

1128 011734 

1129 011740 
1130 

1131 011742 

1132 011744 

1133 011746 
1134 

1135 :'!?50 

1136 ?'?5i 

1137 :nl?56 
Hid v\/'t2 
1139 C:1?66 
1140 

1141 011770 

1142 011774 

1143 011776 

1144 012002 

1145 012004 
1146 

1147 012006 

1148 012014 

1149 012016 
1150 

1151 012020 

1152 012026 

1153 2030 
1154 

1155 012032 

1156 012040 

1157 012042 

1158 012050 

1159 012054 
1160 

1161 012056 

1162 012060 

1163 012062 

1164 012066 
1165 

1166 012070 

1167 012074 

1168 012076 

1169 012102 

1170 012106 

1171 012112 

1172 012114 



4; KT24 


-JBI BOO 
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012700 
005020 
020027 
101774 
0002C7 


0130<3 
013102 


CLEAR: 
IS: 


nov 

CLR 

cnp 

BLOS 
RTS 


fSEOBUF 
(R0) + 
RO, 
11 
PC 


»<=IHISH 


030137 
001001 
0002C7 


013070 


C0N1: 


BIT 
BNE 
RTS 


R1. 
1$ 

PC 


CONFIN 


050137 
012720 
012720 
000207 


013060 
C00001 
177777 


1$: 


BIS 

«0V 
NOV 
RTS 


R1. 

f1, 

»-■>. 

PC 


C0NER1 

(RO* 

(RO)* 


005703 
001001 
000207 




C0N2: 


TST 
BNE 
RTS 


R3 
IS 
PC 




030137 
001005 
114037 
>56270O 
C0C207 


013070 

013062 
000002 


1$: 


31 T 
BNE 

»rev 

ADD 
RTS 


R1. 
2$ 

-(RO). 

»2. 

PC 


CONFIN 

C0NER2 
RO 


.12710 
014002 
062700 
010220 
000207 


000001 
000004 


2S: 


BOV 

nov 

ADD 
«0V 
RTS 


*1. 

-(RO). 

*4. 

R2. 

PC 


(RO) 
R2 
RO 
(RO)* 


032737 
001415 
000207 


000002 


001116 H0LCK1 


BIT 
BEQ 
RTS 


#2, 
E^a> 

PC 


ROMFIN 


032737 
001401 
000207 


000004 


001116 H0LCK2 


BIT 
BEO 
RTS 


*4, 
IS 

PC 


ROnflN 


122737 
001403 
052737 
013716 
000207 


000777 

000002 
013064 


173224 1$: 

013066 

END: 


C«PB 

BEQ 

BIS 

nov 

RTS 


#777, 

END 

#2. 

RETURN. 

PC 


173224 

FLAG 
(R6) 


005713 
001003 
013716 
000207 


013102 


ROMTYP 


BNt 
HOV 
RTS 


(R3) 
IS 

FINISH. 
PC 


(R6) 


022713 
001014 
004737 
012705 
004737 
000011 
062703 


000001 

012126 
013136 
004772 

000004 


1J: 
2»: 


CHP 
BNE 
JSR 

nov 

JSR 

HT 

ADD 


#1. 

ROWM 

PC. 

iCONMES 

PC. 

«4. 


<R3) 
ROHNM 

'filbuf 

R3 



SEQUENCE 49 



RO 



♦SET UP TO CLEAR LOCATIONS 

♦ALL cleared: 

♦BRANCH If NO 



♦CONTINUATION CHIP? 
♦BRANCH IF rES 



.♦CHIP DOES NOT BELONG HERE-SET ERROR FLAG 
.♦SET CONTINUATION ROW INDICATOR 
.-♦ILLEGAL ROM'S DEVICE CODE =-1 
; + 

♦POINTING OVER THIS CHIP? 
♦BRANCH IF YES 



♦CONTINUATION CHIP? 

♦BRANCH IF YES 

♦CHIP IS niSSING-SAVE DEVICE 



CODE 



♦SET CONTINUATION CHIP INDICATOR 
♦GET PREVIOUS DEVICE CODE 
♦POINT TO CORRECT LOCATION 
♦PUT IN DEVICE CODE 



;+A CHIP IN SOCKET f1? 
; ♦BRANCH IF NO 



;^A CHIP IN SOCKET #2? 

; ♦BRANCH If NO 

;♦ 

:^AflE SWITCHES SET? 

.♦BRANCH IF NO 

.♦SET 11/60 INDICATOR 

.♦SET UP ALTERNATE RETURN 



♦ARE UE FINISHED? 

♦BRANCH IF NO 

♦SET UP ALTERNATE 1ETURN 



♦ CONTINUATION CHIP? 
♦ITS A DEVICE CHIP-FIND SOCKFT 
♦FIND SOCKET » 
R5 .-♦LOAD nSG INTO BUFFER 



♦POP OVER CONTINUATION CHIP DATA 



CZ«%EO rW3i2/1H4 KT24 
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-1 


1173 01^120 

1174 0121?* 
1175 

,^76 0.2126 
1,77 C^>\i^,' 


01371 6 
000^07 

032713 
001015 


01306A 
000170 


ROflNH: 


nov 

RTS 

BIT 
RNF 




RETURN 
PC 

#17C, 
3S 


. (R6) 
(R3) 





SEQUENCF 50 



1178 

17? 
1-80 
1131 

na2 

1183 
1 84 
1185 
1186 
1187 
llfS 
118? 



C>2i34 
012136 
012U0 
012H4 
012H6 
012152 
012156 
012156 
012162 
013164 
012166 
012172 



000241 

006101 

050137 001116 

001003 

062702 000002 

000770 

012205 

004737 00' 772 

0OD015 

000402 

112724 000011 

000207 



1S: 



2»: 



31: 
4$: 



BIT 


f17C 


BNE 


3J 


CLC 




HOL 


R1 


BIT 


R1, 


BNE 


2$ 


ADD 


»2. 


BR 


U 


K)V 


IR2) 


JSR 


PC. 


CR 




BR 


4S 


novB 


#HT. 


RTS 


PC 



riOnFIN 

R2 

R5 
fILBUF 



(R4)* 



♦SET UP ALTERNATE RETURN 



♦BEGINNING A NEW ROn? 

♦BRANCH If NOT 

f 

♦POINT TO NEXT SOCKET 

♦IS A ROM THERE? 

♦BRANCH If YES 

♦POINT TO NEXT nSG 

♦CONTINUE 

♦LOAD ROn ID 

♦INTO THE HSG BO'fER 



♦LOAD A TAB 



CZWBEO n9312/1U4 KT24 uei SCO K^. 
SEQUENCE TEST 



1190 
1191 
1192 
1193 
119^ 
1195 
1196 
1197 
1198 
1199 
1200 

1201 012174 012737 0OOO11 

1202 012202 005737 013060 

1203 012206 001417 

1204 012210 013703 013060 

1205 0122U 013702 013104 

1206 012220 012737 000400 

1207 012226 032703 000002 

1208 01223? 001026 

1209 012234 062702 000002 

1210 012240 000241 
12-1 012242 006003 

1212 012244 000770 

1213 0U246 0C5737 013062 

1214 012252 001423 

1215 012254 012737 001000 

1216 012262 012737 010576 

1217 012270 000337 013062 

1218 012274 013737 013062 

1219 012302 105037 010600 

1220 012306 000402 

1221 012310 011237 C13074 

1222 012314 004737 004344 

1223 012320 000207 



• mtVi 22-JAN-82 09:18 



n 4 
P/»6c 34 



SEQUENCE 51 



001 lie 



.SflTTL SEQUENCE TEST 
♦THIS TEST VERIFIES THAT CO^iTI.WiATIDN CHIPS A«E LCCATEO WHEi^E 
♦THEY BELONG, THAT TKERE AP5 NO DUPLICATE DEVICE RO«S. 
♦THAI THE ROKS ARE IN ALPHA8FTICAL ORDER, THAT THERE ARE XO 
♦HOLES, AW THAf SOCKET #2 HAS A CHIP IF THE PdUCESSC.^ IS AN 11/60. 
♦IF THE ONLV PROBLEfl IS ALPHABETICAL ORDER ANB/OR HOLES. 

♦ THEN A CORRECT 5Eai;ENCE IS DETERfllNED AND pr^INTED OUT. 

♦FIRST, CHECK FOR ILLEGAL CONTINUATION R"^ ERRORS 

♦ IF ANY ARE FO(MD. PRINT ERROR HSG A.%0 EXIT 



013076 SEQTST: 



001110 
013074 

01O576 



1$: 



2S: 



3$: 

4$: 



MOV 
TSf 
BcQ 
.TOV 

nov 

HOV 

BIT 

BNE 

AD3 

CLC 

ROR 

BR 

TST 

BEC 

ncv 

BOV 

SUAB 

HCV 

ClRB 

BR 

MOV 

J5R 

STS 



ilHT. 

CONERl 

2S 

C0NER1. R3 

MESSPT, R2 

f CONONE , 

#2, R3 

3S 

#2, R2 

R3 

IS 

C0NER2 

F1LIA8 

#tONTyO. 



ARG2 



;+Sc" UP FOR "iKRHAII" 
:*MS THERE AN ERROR? 
.♦BRANCH IF NC 
.-♦THE BIT IDENTIFIES THE 
;+POINT TO MSS TABLE 



:hip 



ROMERR 



ROHERR 



*MES1, 


ARC1 


C0NER2 




C0NER2, 


MESI 


NESU2 




4S 




:r2;. 


ARG1 


PC. 


ERRHAN 


PC 





♦SET ERROR FLAG 

♦IDENTIFY THE ROM FOR PR.tfJTOUT 

♦BRANCH IF FOUND IT 

♦SET UP FOR my ROM MSG 

♦ 

♦SET UP TO IDENTIFY NEXT BOM 

♦ 

♦UAS THERE AM ERROR? 

♦JRANCH IF NO 

♦SET ERROR FLAG 

♦PASS THIS AC-'RESS TO ERRHAN 

♦BUILD THE MSG 



♦REPORT THE ERROR 
TpASS HSG ADDRESS 
♦REPORT ERROR 



lO •tHRHAN" 



czfweeo «9312/ika kw, uej boo nacro mn3 

TABLE BUILDING ROUTINE 
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SEOUENCF 52 



1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
123^ 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
124e 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
:253 
1254 



.S8TTL TABlt BUILDING "JOUTINt 
*lf THERE UERH NO CONTINUATI». ROR ERRORS, 



BUILD THE FOLLOUINC TABLE: 



012322 
012326 
012332 
012336 
012340 
012342 
012346 
012350 
012354 
012356 
012360 
012364 
012370 
012374 
012376 
012400 
012402 
012406 



012703 
012702 
012700 
000241 
006100 
030037 
001404 
030037 

ooior 

011213 
062703 
062702 
030027 
001760 
000404 
005243 
062703 
000766 



013040 
173000 
0O0UO1 



001116 
013070 



0O0004 
000200 
CO002O 



OC0002 



SEOBUF : 



♦ ENCSEQ: 
♦FOR A 'WLE", 
FILTA8: NOV 

nov 



FIRST DEVICE CODE 

* OF CONTINUATION ROUS FOR FIRST DEVICE 

SECOND DEVICE CODE 

I OF CONTINUATION ROMS FOR SECOND DEVICE 



FOURTM (LAST) DEVICE CODE 



THE DEVICE CODE WILL BE A 0. 



1$: 



2$: 



3$: 

5S: 



4$: 



nov 

CLC 

ROL 

BIT 

BEQ 

BIT 

LME 

KOV 

ADD 

ADD 

BIT 

BEQ 

BR 

INC 

ADD 

BR 



'SESBUF. 
#173000, 
#1, RO 



RO 

RO. 

3» 

RO. 

4S 

(H2), 

#4. 

#260, 

RO, 

IS 

ALPHCK 

-(R3) 

#2, 

5$ 



R3 
R2 



ROMFir: 
CONFIN 
(R3) 

n3 

R2 

#20 



R3 



♦SET UP TO FILL A TABLE CALLED 
♦POINT TO FIRST ROM 



■SEOBUF- 



♦POINT TO NEXT ROM 

♦IS IT A HOLf? 

♦BRANCH IF YES 

*1S IT A CONTINUATION CHIP? 

♦BRANCH IF YES 

♦ITS A DEVICE ROM-PUT DEVICE CODE INTO TABLE 

♦POINT TO NEXT DEVICE CODE LOCATION 

♦POINT TO NEXT ROM 

♦ALL DONE? 

♦>lO-eRANCH 

♦TABLE COMPLETELY BUILT 

♦COUNT ONE CONTINUATION CHIP IN LOCATION 

♦POIN' TO NEXT OEVIC; CODE LOCATION 



■tZWm.0 B9312/n4* KT24 LfBI BOO HAC»C B1113 

■ '^t -sEaeuf' »ouTi« 
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I 



S£Qt«l«CE 53 



1255 
125* 
1257 
125* 
1259 
1260 
1261 

1262 012*10 

12S 0124U 

126* 012*16 

i65 012*22 

1266 012*26 

1267 012*30 

1268 012*32 

1269 012*3* 

1270 012*36 

1271 012**0 

1272 0l|**2 

1273 012**^ 
127* 012**6 

1275 012*50 

1276 012*5* 

1277 012*60 

1278 012*62 
127V 012*6* 

1280 012*72 

1281 012500 

1282 012502 

1283 012506 
128* 012512 

1285 012516 

1286 012520 

1287 012522 

1288 01252* 

1289 012526 

1290 012530 
129t 012532 

1292 01253* 

1293 012536 
129* 0125*0 

1295 0125*6 

1296 012550 

1297 012552 

1298 012556 

1299 012560 
i300 01256* 

1301 012566 

1302 012570 
1305 012576 
130* 012600 

1305 01260* 

1306 012606 

1307 012610 

1308 012612 

1309 01261* 

1310 012616 

1311 01262* 



.SBTTL CHECK 'SEOeuf K.. ' llf 
:*mM CHECK pEVICE COOES IN "SEflBUf ' FON ALPHtaeUCM. OROER ANO 
.♦CHECK FOR 'WLES". IF THERE IS A (H*»LJCArE DEVICE CODE, PRIWT 
:»AN ERKM MESSAS AMD EXIT. IF DEVICE CODES NEED SOKTiNe 
.♦ANC/OR HOLES FILLiNe. DO IT AND SET THE SEQUENCE ERROR 
.-♦Fme. ALSO CHECK FOR THE 11/40 SFtCIAL CASE. 



012703 
0103O* 
06270* 
020*27 
101010 
005713 
001 **6 

oosn* 

001767 
02131* 
001*10 
003025 
000763 
062703 
020327 
103OS6 
00075* 
01?737 
012737 
00031* 
011*37 
105037 
00*737 
000207 
010301 
010*02 
011200 
011122 
010021 
011200 
011112 
010011 
012737 
000723 
0103OS 
020527 
103017 
062705 
005715 
001771 
032737 
001OO* 
105737 
001*01 
000*2: 
010301 
010502 
0007*3 
032737 
O0K13 



0130*0 

OOOOO* 
01305* 



ALPHCK: «JV 



1$: 
2»: 



OOOOO* 
01305* 



002000 
010576 

010576 
010600 
00*3** 



3$: 



00111D *$: 
013074 



000200 001110 

013i:5* 
OOOOO* 



5$: 

6S: 



7»: 
8S.- 



000032 
17122', 



001116 



11$: 



OC00O2 013066 9$: 



AOO 

C» 

8HI 

TSl 

BEO 

TST 

BEQ 

CHP 

BEO 

B6T 

BR 

ADO 

CflP 

BHIS 

BR 

WJV 

wv 

SUM 

nov 

CLRB 

JSR 

RTS 

BOV 

nov 
nov 
nov 

NOV 

nov 

MOV 

nov 
nov 

BR 

nov 

CHP 
BHJS 

TST 

OEQ 

BIT 

BNE 

TSTB 

BEO 

BR 

nov 
nov 

BR 

BIT 
BEO 



fSboeuF 




R3, 


R* 


»*. 


R* 


R*. 


fE NOSES 


3S 




(R3) 




7* 




(R*) 




2% 




(R3J. 


(R*) 


*S 




ss 




2$ 




#*. 


R3 


R3, 


fENOSEQ 


9S 




1S 




f0l*>£RR 




«nEsi, 


ARG1 


(R*) 




(R*). 


RES1 


HES1»2 




PC. 


ERRHAM 


PC 




R3, 


R1 


R4. 
(R2). 


R2 
RO 


{RD. 


(R2)* 


RO, 


(RD* 


(r5). 


RO 


(ftU. 


(R2) 


10. 


(R1) 


fSEQERd 




2* 




R3. 


R5 


R5. 


#ENDSEO 


9$ 




">.. 


R5 


(rS) 




8$ 




H2. 


RORFIN 


IIS 




17322* 




11$ 




10$ 




R3, 


R1 


RS. 


R2 


6$ 




»2. 


FLAG 


lOl 





R3 



ROntRR 



ROHERR 



; +11/60 



"SEflBUf 



*SET if TO CHECK «J>HAaETIC SEQUENCE IN 

>yjLL BE COirAAINe (R3] TO (R*) 

♦WERE R3 AND R* POINT TO DEVICE CODE LOCATIONS 

♦PAST TK LAST DEVICE CODE? 

I B RANCH IF YES 

♦ IS T»RE A Df ICE CODE t€RE? 

♦BRANCH IF NO 

♦IS THERE A DEVICE CODE HERE? 

♦BRANCH IF NO 

♦IS THE SEQUENCE CORRECT? 

♦BRMCH IF m^fUm A DUPLICATE 

♦BRANCH IF ND-NEED TO DO A SHIFT 

♦YES-CONTINUE 

♦POINT TO NEXT DEVICE CODE 

♦ALL DONE? 

♦BRANCH IF YES 

♦NOT YET 

♦SET ERROR FU6 

♦PASS THIS ADDRESS TO "ERRHAN" 

♦eUILO r>« NS6 



♦REPORT THE ERROR 

♦SET UP FOR THE SHl^FLE 

♦ 

♦SHIFT THE VALUES 



♦SET THE SEQUENCE ERRO) FLAG 
♦CONTINUE SORTING 

♦SET -JP TO SEE Ir UE HAVE A "HOLE" 
»END OF TABLE? 
♦YES-THIS yAS MOT A "HOLE" 
♦NO-POINT TC NEXT DEVICE CODE LOCATION 
♦ IS THERE A ROF! HERE? 
♦BRANCH IF NO 
♦A ROM IN SOCKET #2 ONLY? 
♦BRANCH IF NO 
SPECIAL CASE? 
♦BRANCH IF NO 

♦THE ONLY RON NUST STAY IN SOCKET 92 
♦YES-THERE IS A HOLE THAT CAN BE FILLED 
♦GET READY TO SHIFT THE VALUES 
♦FILL IN THE HOLE 
♦AN 11/60? 
♦BRANCH IF NO 



CZB9BE0 H9312/1U; ICT24 uei BOO MACRO B1113 
C'JFCK 'SEQBUF' ROUTINE 

1312 012626 005737 013044 

1313 012632 001366 

1314 012634 005737 013040 

1315 012640 001405 

1316 012642 012701 013040 

1317 012646 012702 01 3044 

1318 0.2652 000724 

1319 012654 032737 000200 001110 10S: 

1320 012662 001001 
T'21 012664 000207 





C 


5 




•JAN-82 09:18 PAGE 


36 


-1 




TST SEQBUfH 








6NE 11$ 








TST sEoeuf 








BEQ 10S 








MOV f SEQBUF . 






R1 


«0V #SE0BUF*4. 






R2 


BR 6$ 








BIT fSEQERR, 






RO«ERR ; 


8NE OUTTAS 








RTS PC 









SEOUENCE 54 



+;S SOCKET #2 ENPT'? 

♦BRANCH If NO 

♦IS SOCKET #1 EHP.r? 

♦BRANCH IF YES 

♦SET IIP TO SHIFT 

♦CHIPS «1 AND «2 

♦DO THE SHIFT 

♦WAS THERE A SEQUENCE ERROR? 

♦BRANCH IF ye: 
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SECUENCE 55 



1322 
1323 
1324 
1325 

1326 012666 

1327 012674 

1328 012702 

1329 012706 

1330 012712 

1331 012716 

1332 012722 

1333 012726 

1334 0^:730 

1335 012732 

1336 012734 

1337 012740 

1338 012744 

1339 012752 

1340 012754 

1341 012760 

1342 012764 

1343 012/66 
1544 012772 
1345 012774 
1546 015000 

1347 013004 

1348 CI 3006 

1349 013010 

1350 013012 

1351 015014 

1352 013022 
1355 015024 

1554 015026 

1555 015030 

1556 013032 

1557 015036 
1353 

1359 

136C 015040 

1561 015042 

1562 015044 
1365 015046 

1564 0:50*^0 

1565 013052 

1566 015054 

1567 013056 
1368 015060 
1%9 013062 
1370 015064 
1571 013066 
^372 013070 
1373 015072 
1574 015074 

1375 015076 

1376 013100 

1377 015102 
1578 



012757 
012757 
012700 
015702 
012704 
012705 
004737 
000015 
005710 
001004 
062700 
062702 
012757 
000510 
012057 
105037 
Oi;205 
004/37 
000015 
015705 
004757 
000011 
005720 
001405 
005340 
012757 
000760 
005710 
0C1546 
105014 
00473? 
OCC207 



COOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOO-H) 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



.SaTTL BUILDING CORRECT SEQUENCE HSG FOR 'ERRHvJ' ROUTINE 
;*THE FOLLOWING 90UTINE BUILDS THE CORRECT SEQUENCE MSG TO BE 
.-♦PRINTED AS AN ERROR HSG BY •'ERRHAN" 

♦PASS BSG ADR. TO "'ERRHAN' 
♦PASS THIS TOO 



010576 


013074 


OUT TAB: 


BOV 


f«S1. 


ARG1 


000015 


013076 




NOV 


fCR. 


ARG2 


013040 






mv 


fSEQBUF 




013104 






.<WV 


BESSPT, 


'R2 


010576 






mv 


WESl, 


R4 


013577 






FWV 


fERHES4 


^ 


004772 






JSR 
CR 

TST 
BNE 


PC. 

(RO) 
IS 


FILBUF 


000004 






AtD 


«4. 


RO 


000002 






ADD 


*2. 


R2 


011176 


013100 


1$: 


mv 

SWAB 


*H£S2, 
(M) 


BUILD 


011176 






mv 


{R0)+, 


HES2 


011200 






CLfiB 


nES2^5 








2$: 


mv 


tR2)+. 


R5 


004772 






JSR 

CR 


PC. 


FILBUF 


015100 






mv 


auiLD. 


P5 


004772 






JSR 

HT 

TST 

BEO 

DEC 


PC, 

(fio; •► 

5$ 
-CRO) 


. -LBUF 


013-36 


013100 




MOV 
BR 


fCONHES 
2$ 








3i: 


'ST 

a^E 

CLR8 


(R0> 

1$ 

(R4) 




0045^4 






jSR 

o-S 


PC. 
PC 


ERRHAN 






SKQ8UF: 


.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
















ENOSEO: 


.WORD 
.WORD 












C0NER1 : 


.WORD 











C0NER2: 


.WORD 











RETURN: 


.WORD 











FLAG: 


.WORD 











CONFIN: 


.WORD 











DEvriN: 


.WORD 











ARG1: 


.WORD 











ARG2: 


.WORD 











BUILD: 


.WORD 











FINISH. 


.UORO 








RO 



R5 



BUILD 



♦START BUILDING THE ERROR HSG 
♦PUT IN THE FIRST PART 



♦IS A ROH IN SOCKET 
-BRANCH IF YES 
♦DO SOCKET «2 ONLY 



f1? 



♦SET UP THE DEVICE CODE PART 

+ 



♦IDENTIFY THE ROH » 

+ 

+ 

♦PUT IN EITHER DEVICE CODE OR CONTINUATION HSG 



♦ANY CONTINUATION ROHS? 

<ciAANCH IF NO 

♦COUNT DOWN ONE ROH 

♦SET UP FOA CONTINUATION HSG 

♦CONTINUE 

♦ANY mHi DEVICE ROHS? 

♦BRANCH IF YES 

♦nUST END WITH BYTE 

♦REPORT THE ERROR 



♦FIRST DEVICE CODE 

♦# OF CONTINUATION CHIPS FOR FIRST DEVICE 

♦SECOND DEVICE CODE. ETC 



♦FOURTH (LAST) DEVICE CODE 

* 

♦EXTRA CONTINUATION CHIP ERROR FLAG 

♦HISSING CONTINUATION CHIP FOR THIS DEVICE 

♦ALTERNATE Ri:T(JRN ADDRESS 

♦SIT 1:11/60 

♦CONTINUATION ROn FOUND INDICATOR 

♦DEVICE ROM FOIMD INDICATOR 

♦PASSES HSG ADR. TO "ERRHAN" 

♦PASSE- ." OR HT TO "ERRHAN" 

♦ 

♦ALTERNATE RETU"" ADDRESS 



CZNSfatO B9312/1K4 KT2« UBI BOO «ACRO HIT 13 22-JAN-82 09:18 
BUILDING CORRECT SfQUENCE HSG FOR 'ERRHAN' ROt"'".ME 



PAGE 



hJ, 



iESUENCE 



56 



1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

138? 

1389 

1390 

1391 

13T-2 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

U01 

1402 

U03 

U04 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

-;413 

1414 

1415 

1416 

1417 



013104 
013106 
013110 
013112 
013114 
013116 
01312C 
013122 
013124 
013126 
013130 
013132 
013134 
013136 
013164 
013243 
013323 
013377 
013424 
013440 
013454 
013470 
013504 
013520 
013534 
013550 
013564 
013601 
013616 
013632 
013647 
013664 
013700 
013715 
013732 
013746 
013763 
014000 



013n6 

013424 

013440 

013454 

013470 

013564 

013632 

013700 

013746 

013504 

013520 

013534 

013550 

111 

015 

015 

015 

123 

122 

122 

122 

122 

122 

122 

122 

122 

122 

105 

105 

122 

105 

105 

122 

105 

105 

122 

105 

105 

000001 



HESSPT: 
«SS44: 



nESS24: 



MESTAB: 



123 
012 
012 
012 
105 
117 
117 
117 
117 
117 
117 
117 
117 
117 
0i3 
067 
i17 
063 
07: 

n< 

063 
070 

^^y 

063 
070 



040 
101 
101 
124 
121 
115 AflOBI 



COWES: 
ERJ1ES1 : 
ERMES2: 

ERHCS4: 



115 
115 
115 



AAOnZ 
AROKS 
AROM 



115 ROfll 



115 
115 
115 



RQn2 
R0H3 
ROM 



115 BRO« 

065 

065 

rs efl0H2: 

053 

071 

115 8R0n3: 

064 

062 

115 BR0H4: 

062 

063 

.END 



.WORD 

AKOnl 

A>?C« 

AR0n3 

AfiOH4 

BfiOHl 

BfiOfC 

BR0R3 

■V)Qn4 

RCril 

R0N2 

ROM 

.ASCJ2 

-ASCII 

.Asci; 

.ASCIZ 

.Ascn 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCII 
.ASCI" 
.ASCIj 
.ASCII 
.ASCIZ 
.ASCII 
.ASCII 
-ASCi: 
.ASCI] 
.ASCII 
.ASCIZ 



flESTAB 



♦ASCII «SG TABLE 



/IS A CONTIMJATION ROM/ 
<'15><12>/A CONTINUATION ROM IS INCORRECTLY LOCATED IH/ 
<15><12>/A CONTINUATION ROH IS MISSING FOR DEVICE COO^/ 
<15><12>/THERE li A ^'PLICATE ROfl WITH DEVICE CODE/ 
/SEQUENCE SHOULD B£:/<t:> 



/ROM 1(E48) 
/ROH 2(E49) 
/ROM 3(E50) 
/ROM 4(E59; 
/RON 1(E35) 
/Ron 2(E33) 
/ROB 3(E34) 
/ROM 4(E32) 
/ROn 1 - 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/<15><12> 



/E35- B9312 /<i:><12> 

/E75-«AP»WD / 

/ROM 2 - /<15><12> 

/E33- B9312 /<15><12> 

/E89-MAPM00 / 

/RON 3 - /<15><12> 

/£34- B9312 /<15><12> 



/E82-NAPMO0 
/ROM 4 



/<15><12> 



/E32- 119312 /<15><12> 
/t"85-1APH0D / 



DPMOOI 
DPMOOl 
DPM001 
DPMOOl 
CPMOOI 
DPMOOl 
DPflCCl 
DPMOOl 
DPMOOl 
DPMOOl 
DPMOOl 
DPMOOl 



CZK9B€0 !i^:.12/n44 


KT24 IBI BOO 


MACRO (11113 


22-.'AN-82 09:18 PAGE 


F 5 
37-2 




SEQUENCE 57 


1 


SYBBOL TAuLE 
















ABASE = 000000 


AR0R21 


007203 


CKSyS = 104406 


LASTAD 0O3U4 


POHFIN 


001116 




ACDyi = oooooc 


ARGn3 


013454 


CLEAR 011676 


LF = 000012 


ROHNH 


012126 




ACDW2 = OOOOOO 


ARO«'. 


007206 


C0NER1 013060 


LOOP 003060 


Ronwji 


007332 




AC«XP= OOOOOO 


AROK 


013470 


C0NEf;2 013062 


FCSSAG 001112 


ROMPTR 


007176 




AOOWO = OOOOOO 


AR0n41 


007211 


CONFIN 013070 


HESSPT 013104 


ROHTYP 


012056 




AO0W1 = OOOOOO 


AR0M51 


007214 


COWeS 013136 


nESS24 013110 


R0H1 


013504 




AD0W10= OOOOOO 


AKOUND 


004702 


C0N0NE= 000400 


BESS44 013106 


R0»'2 


013520 




AC0W11= o^xxxw 


ASyRE6= 


OOOOOO 


CCATWO= 001000 


HESTAB 013126 
HES1 010576 


RORi 


013534 




AD0«12= 060000 


ATESTN= OOOOOO 


C0N1 011714 


R0n4 


013550 




AD0U13= OOOOOO 


AUNIT = 


OOOOOO 


C0N2 011742 


HES2 011176 


RSTART 


002204 




AI>0W14= OOOOOO 


AUSWR = 


OOOOOO 


CPUTYP 001122 


HFPT = C00007 


R6 


lOOOO* 




A00W15- OOOOOO 


AVECn = 


OOOOOO 


CR = 000015 


HNORH 007350 


R7 


X000007 




AWHC ^ OOOOOO 


AVECT2= 


OOOOOO 


CfiCERR= 000020 


NOOATA 002630 


SAVREG= 


104411 




ADDU3 ^ OOOOOO 


BELL 


007344 


CRCLOP 003066 


NOftO«E= 000100 


SCOPE = 


000004 




AD0U4 = OOOOOO 


BITO = 


000001 


CRCnSG 010226 


NOROm 010330 


SEQBUF 


013040 




AD0y5 = OOOOOO 


BITOO = 


000001 


CRLF = 000200 


NORONS 002544 


SEOERH= 


r 30200 




Aooy6 = OOOOOO 


8IT01 = 


000002 


DAFLAG 003646 


OCAOO 005140 


SEQKS6 


010406 




A0OU7 = OOOOOO 


BIT02 = 


000004 


DDISf = 177570 


OCASC 005034 


SEQTS- 


012174 




Aooys - OOOOOO 


8JT03 = 


000010 


DEVCOD 003426 


0CT8UF 010566 


STACX = 


001100 




UMI9 = OOOOOO 


BJT04 -- 


000020 


OEWFIN 013072 


OUTTAB 012666 


START 


001400 




AO£VCT= OOOOOO 


BITO' = 


000040 


DISPLA 001106 


0VER1 004406 


S1KLni= 


177774 




.'j>Evn = OOOOOO 


B':j6 = 


000100 


DISPRE 000174 


OVER 10 004722 


SUR 


001104 




itHV = OOOOOO 


^il37 = 


00020c 


DRHEAD 007444 


0VER11 004714 


SUREG 


000176 




AENVR = OOOOOO 


8IT08 = 


000400 


DRH24 037524 


0VER2 004660 


SWO = 


000001 




Af ATAL= OOOOOO 


BIT09 = 


001000 


DRH44 C0746S 


0VER9 004710 


SWOO = 


000001 




ALPHCK 012410 


Bin = 


000002 


DSUR = 177570 


PATCHS 002344 


SU01 = 


000002 




AK*W»1- OOOOOO 


BIT10 = 


002000 


OUPERR= 002000 


PFERR = 000040 


SU02 = 


000004 




A«A0«2- OOOOOO 


BIT11 = 


004000 


EHEAOT 004744 


PFHEAO 0O773S 


sy03 = 


000010 




AnAM3= OOOOOO 


BIT12 = 


010000 


EKTVECi 000030 


PFW6 CI 0252 
PIRO = 177772 


SU04 = 


000023 




AHAM4= OOOOOO 


BIT13 = 


0200CO 


END 012050 


SW05 = 


000040 




ANAfClx OOOOOO 


BIT14 = 


040000 


ENDSEQ 013054 


PI ROVE = 000240 


SU06 = 


000100 




AHAHSZ^ OOOOOO 


BITIS = 


100000 


ERL 007424 


PPFVAR 003650 


SW07 = 


000200 




AnARS5= OOOOOO 


Bir2 = 


000004 


ERHESI 013164 


PROnP 003146 


SU08 = 


000400 




Arwis4- OOOOOO 


61 T3 = 


000010 


ERHCS2 013243 


PRO = OOOOOO 


SW09 = 


001000 




ARSGAD= 00C900 


BIT4 = 


000020 


ER«S3 013323 


PR1 = 0CO040 


SU1 = 


000002 




AKSGL6= OOOOOO 


BITS = 


000040 


EfiHeS4 013377 


PR2 = 000100 


SWIO ^ 


C02000 




AHSGTY: OOOOOO 


8116 = 


000100 


ERRCNT 001120 


PR3 = OuvlAO 


SWII = 


004000 




A«TYP1= OOOOOO 


81 T7 = 


000200 


ERRHAM 004344 


PR4 = 000200 


SW12 =: 

SU13 = 


010000 




AHTyP2= OOOOOO 


81 18 = 


000400 


ERRHSe 011276 


PR5 = 000240 


0200CO 




A«TyP3= OOOOOO 


81 19 = 


001000 


ERROR = 104000 




SW14 :' 


040000 




AHTYP4= OOOOOO 


BPTVEC= 


000014 


ERRVEC= 000004 


PR7 = 000340 


SW15 = 


100000 




AFASS = OOOOOO 


BRHEAS 


00760P 


ERinSG 010036 


PS = 177776 


SU2 = 


000004 




APRiCR= OOOOOO 


BRon 


007320 


ER2BSG 010002 
ER3«SG 010074 


PSW = 177776 


Stf3 = 


000010 




APTCSU= 000040 


8R0H1 


013564 


PUTflES 003760 


SU4 = 


000020 




APTENV= 000001 


BRcnii 


007217 


ER4MS6 010152 


PUftyEC= 000024 


SU5 ^ 


000040 




APT£R1= 000001 


8R0R2 


013632 


EXCACO 0C3142 


RDCKft = 104407 


SW6 = 


000100 




APTER2= 000002 


BRm§' 


007222 
013700 


FILBUf 004772 


RDLIN = 104410 


SU7 = 


000200 




APTE»5= 000004 


FILTA8 012322 
FINISH 013102 
FIRSTA 003140 


RESRE6= 104412 


SU8 ^ 


000400 




APTER4= 000010 


BRfvm 


^Sll 


RESVEC= 000010 


SU9 = 


001000 




APTSI2= 000200 


BROTK 


RETURN 013064 

mwi 007J66 

mikt^i 007?71 
mua 007274 


TBITVE= 






APTSPO= 000100 


BROPKI 


007244 
007255 


FIRSTS 001114 


TEHP 


00S136 




AR61 01307; 


BROHSI 


FLAG 013066 


TESTAO 






ARG2 013076 


BOfI 


010502 


GTSUfi = 10440S 


TIHES 




AROH 007306 


8UF2 


010562 
013100 


HCLCK1 012006 


mtUV, 007177 
RHNUnS 007302 


•.KVtC = 


Q0Q060 




AROHI 013424 


BUILD 


H0LCX2 01?020 


TPVEC = 


000C64 




ARQHI1 007200 


CALSUn 


003050 


y =000011 


ROHCNT 003046 


TRAPVE^ 


000034 




ARQH2 013440 


CHECKS 


C02632 


lorvEC: 0000:0 


ROHERR 001110 


TRTVEC= 


000014 





aWBCO H9312/1U4 KT24 UBI BOO HACRO Hni3 
SYJBOL TABLE 



TYPE = 


10AA01 


SDDWH 


0C1260 


TYPOC = 


1O4402 


SCDU15 


001262 


TYPOH = 


104AO^ 


SDD'J2 


001230 


TYPOS = 


1O4A03 


tDDW3 


001232 


SAPTHO 


0O1124 


IDC^ 


001234 


MTYC 


005564 


$DDU5 


001236 


MTY1 


0O5540 


S0CU6 


001240 


SA1Y5 


0O5516 


SODV? 


j01242 


$ATY4 


005556 


S0DU8 


001244 


SAUTOe 


oonoo 


S0DV9 


001246 


SBASE 


001 2U 


SOEVCT 


001150 


KDta'i 


001220 


SDEVn 


001216 
002322 


SC0U2 


001222 


SOOAGN 


SCHAftC 


0055U 


SEM)AI> 


00231? 


SCKSUR 


006006 


«£NOCT 


002266 


tCHTLG 


006543 


SENDfK 


002331 


KNTLU 


006536 


SENULL 


002326 


KPUOP 


001166 


s:mv 


001160 


SCRLF 


0OS535 


SENVn 


001161 


lODUO 


001 2i4 


MOP 


002242 


SODWI 


001226 


SEOPCT 


002260 


SODUIO 


001250 


tETASL 


001160 


SODWII 


001252 


SETENO 


001264 


S0DU12 


001254 


JfATAL 


001142 


$O0W13 


001256 


SFFLG 


006004 


. ABS. 


014014 


000 






OOOOOO 


001 




ERRORS DETECTED: 








22-JAN-82 u9:18 PAGE 37- 



SFiLLC 005532 MTYP1 001171 

SFJI.LS 005531 $nrrP2 001175 

$GET42 002302 MTTP3 001201 

SGTSW 006056 MTYP4 001205 

SHB = 000003 $(*JCL 005530 

SHISTS 001124 $OCNT 0070U 

SINTA6 001101 tOnOOE 007016 

SLf CJ5536 SPASS 001 U6 

SLFLG 006003 IPASTB 001132 

SrtADHI 001172 SQUES 005534 

SnADR2 001176 SADCHA 006270 

SnADR3 001202 SRDLIN 006420 

SnADR4 C01206 SRCSZ = 000010 

SnUL 001140 MESRE 007056 

SmnSI 001170 f^TNAD 002324 

SnAK2 001174 SSAVRE 007020 

sharsB 001200 $s£rup= 000124 

$<W!S4 001204 $STUP = 177777 

SWADR 001126 SSVPC = 000210 

MFL6 006002 SSUR = 160000 

SIWEU 006561 SSUREi 001162 

SMSGAO 001154 STESTN 001 U4 

SRS5LG 001156 STKB 005522 

JUSSTY 001140 Sins 005520 

SmsyR 0D6550 »TN = 000O01 



VIRTUAL NEHORY USED: 33328 UORdS ( 131 PAGES) 

DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:01:23 

C2M9BE .eiN.C2M9BE/CR/-SP/NL : TOC=C2«9eE .HLB/ML . CZ«9eE .P1 1 





SEOJENCE 


58 


jTpe 


005526 




STPfLG 


005533 




$TPS 


005524 




STRAP 


0071 U 




$TRAP2 


007136 




$TRP = 


000013 




STRPAO 


C07150 




STSTM 


001130 




STTYIN 


006526 




ITVPE 


005154 




STYPEC 


005366 




JTYPEX 


005516 




STYPOC 


006616 




STYPON 


006632 




$TYPOS 


0vo572 




SlMIT 


001152 




$t«ITK 


001134 




susm 


001164 




$VECT1 


0012i0 




SVECT2 


001212 




SXOFF = 


000023 




»X0N = 


000021 




SSGET4= 


OOOOOO 




JOFILL 


007015 




.$X = 


001124 





CZWK 


CREATED BY 


«ACRO OH 22 


-JAN-82 AT 09:19 PAGE 1 
SEO'JENCE 59 


SYWOL 


CROSS REFERENCE 




CREF V01 


SYIBOL 


VALUE 


REFERENCES 
6-477 




fc-V^SE 


= 000000 


6-477 


ACDWI 


= 000000 


6-477 


6-477 


ACMC 


= 000000 


6-477 


6-477 


ACPUOP 


= 000000 


6-477 


6-477 


AMUO 


= 000000 


6-477 


6-477 


AOOUl 


= 000000 


6-477 


6-477 


ADCWIO 


= 000000 


6-477 


6-477 


AD0W11 


= 000000 


6-477 


6-477 


AO0U12 


= oocooo 


6-477 


6-477 


AO0U13 


= oooooo 


6-477 


6-477 


ADDU14 


= oooooo 


6-477 


6-477 


ADOWIS 


= oooooo 


6-477 


6-477 


AD0U2 


= oooooo 


6-477 


6-477 


ADDU3 


= oooooo 


6-477 


6-477 


ADDM 


= oooooo 


6-477 


6-477 


AOOWS 


X oooooo 


6-477 


6-477 


AfiOUf 


= oooooo 


6-4-'7 


6-477 


AD0W7 


= oooooo 


6-477 


6-477 


ADDW8 


= oo< ooo 


6-477 


6-477 


MX)W9 


= oooooo 


6-477 


6-4/7 


ADEVCT 


= oooooo 


6-477 


6-477 


ADEVH 


= oooooo 


6-477 


6-477 


AENV 


= oooooo 


6-477 


6-477 


AENVn 


= oooooc 


6-477 


6-477 


ATATAl. 


= oooooo 


6-477 


6-477 


ALPHCK 


012410 


35-1251 


#36-1262 


AMDftl 


= oooooo 


6-477 


6-477 


AIU0(t2 


= oooooo 


6-477 


6-47/ 


AMM3 


= oooooo 


6-477 


6-477 


AflADR4 


= oooooo 


6-477 


6-477 


AHANSI 


= oooooo 


6-477 


6-477 


Amns2 


= oooooo 


6-477 


6-477 


fjvmss 


= oooooo 


6-477 


6-477 


AHMS^ 


= oooooo 


6-477 


6-477 


AKGAO 


= oooooo 


6-477 


6-477 


ARSGLG 


= oooooo 


6-477 


6-477 


AnSGTY 


= oooooo 


6-477 


6-477 


AJITYPI 


= oooooo 


6-477 


6-477 


AHTTP2 
AHTYP3 


= oooooo 


6-477 


6-477 


= ooocoo 


6-477 


6-477 


AMTYP4 


= oooooo 


6-477 


6-477 


APAS5 


= oooooo 


6-477 


6-477 


APSIOR 


= oooooo 


6-47? 




APTCSU 


= 000040 


21-1022 


#22-1024 


APTEMV 


= 000001 


21-1022 


22-1024 #22-1024 


APTER1 


= 000001 


#4-446 


13-671 


APTER2 
;»PTER3 


= 000002 


#4-447 


13-683 


= 000004 


#4-448 


13-694 


APTER4 


= 0OOC1O 


J4-449 


13-700 


APTSIZ 


= 000200 


7-480 


#22-1024 


APTSPO 


= 000100 


21-1022 


22-1024 #22-1024 
•34-1216 •34-1221 •36-1280 


AAG1 


013074 


17-902 



•37-1326 #37-1374 



czH9ee 


CREATED BY 


MACRO ON 22-JAN-82 AT 09:19 PAGE 2 


I 








SEOUENCE 60 




SYWX 


CROSS REFERENCE 




CREF VOl 




SYWOL 


VALUE 


REFERENCES 






AftGZ 


01 3076 


17-901 


•34-1201 •37-1327 #37-: 375 




ABO« 


007306 


7-490 


#29-1056 




Aftom 


013424 


37-1380 


#37-1397 




AROni 


007200 


#29-1040 


29-1056 
#37-1398 




Mac 


013440 


37-1381 




AMB21 


007203 


#•^9-1041 


29-1056 




AAOm 


013454 


37-1382 


#37-1399 




AR0H31 


007206 


#29-1042 


29-1056 
#37-1400 




AAOM 


013470 


37-1383 




AfKMI 


007211 


#29-1043 


29-1 O'S 




ARQK51 


007214 


#29-1044 


29-1036 




AROUND 


004702 


17-940 


17-943 #17-945 




ASUREG 


= 000000 


6-477 


6-477 




ATESTN 


= OOOOOO 


6-477 


6-477 




All.IT 


= OOOOOO 


6-477 


6-477 




AUSUR 


= OOOOOO 


6-477 


6-477 




AVECT1 


= OOOOOO 


6-477 


6-477 




AVECT2 


= OOOOOO 


6-477 


6-477 




BELL 


007344 


17-882 


#29-1059 




BITO 


= 0OOOO1 


#4-442 






BITOO 


= COOO01 


#4-442 


4-442 




8IT01 


= 000002 


#4-442 


4-442 




BIT02 


= 000004 


#4-442 


4-442 




BIT03 


= OOOOIO 


#4-442 


4-442 




BiTO« 


= 000020 


#4-442 


4-442 




Biros 


= 000040 


#4-442 


4-442 




8IT06 


= 000100 


#4-442 


4-442 




Bn07 


= 000200 


#4-442 


4-442 




BIT08 


= 000400 


#4-442 


4-442 




B1T09 


= 001000 


#4-442 


4-442 




Bin 


= 000002 


#4-442 






BITIO 


= 002000 


#4-442 


17-879 




SIT11 


= 004000 


#4-442 






BU12 


= 010000 


#4-442 






B1I13 


= 02OOCO 


#4-442 


17-883 




sru 


= 040000 


#4-442 






Bins 


= 100000 


#4-442 


17-951 




BU2 


= 000004 


#4-442 






BIT3 


= OOOOIO 


#4-442 






8IK 


= 0OCO?0 


#4-442 






BITS 


= 0OCO40 


#4-442 






B1T6 


= 0OC10O 


#4-442 






BIT7 


= 000200 


#4-442 






BITS 


= 000400 


#4-442 






BIT9 


= 001000 


#4-442 






BPTVFC 


= oooou 


#4-442 






BRHEAO 


007600 


16-823 


#30-1066 




BRQH 


007320 


7-497 


#29-1057 




BAOHI 


013564 


37-1384 


#37-1405 




BAOnll 


007217 


#29-1045 


29-1057 

#37-1408 

29-1057 




BOOK? 


013632 


37-1385 




BR0H21 


007222 


#29-1046 





CZH9BE 

SYraoL 

SYWOL 

BRGH3 

!«0M31 

BftOM 

BftOMI 

BA0R51 

BUF1 

8UF2 

BUILD 

CALSUH 

CHECKS 

CKSUR 

CLEAR 

CCMERI 

CCMER2 

CONFIN 

COWSS 

CONONE 

CONTWO 

C0N1 

C0N2 

CFUTYP 

CR 

CRCERR 

CRCLDP 

CRCHSG 

CRLF 

DAFLAG 

DDISf 

OEVCOO 

DEVFIM 

DISPLA 

DISPRE 

DRHEAD 

0RH2A 

DRH4A 

DSUR 

DUPERR 

EHEADT 

EUTVEC 

END 

ENDSEQ 

ER- 

ERWS1 

ERMES2 

ERHES3 

ERMES4 

ERRCNT 

ERRHAN 

ERRMSG 
ERROR 



CREATED BY HACRO CN 22-JAN-82 AT 



CROSS REFERENCE 
VALUE 

013700 

007233 

013746 

00724A 

007255 

CI 0502 

010562 

013100 

003050 

002632 
= 104*06 

011676 

013060 

013062 

013070 

013136 
= 000400 
= 001000 

011714 

011742 

001122 
= 000015 

000020 
003066 
010226 
000200 
003646 
177570 
003426 
013072 
001106 
000174 
007444 
007524 
007465 
177570 
002000 
004744 
000030 
012050 
013054 
007424 
013164 
013243 
013323 
013377 
001120 
004344 

011276 
104000 



REFERENCES 

37-1 3S6 
#29-1047 

37-1387 
#29-1048 
#29-1049 

7-499 

13-691 
•37-1338 

11-583 

7-538 
#28-1036 

7-505 
•33-1126 
•33-1 137 
•7-525 

i3-n69 

#4-454 
#4-455 

14-742 

14-763 
#4-474 
#4-442 

21-1022 
#4-450 
#12-621 

17-963 
#4-442 
•14-737 
#4-442 

13-651 
•7-529 
#4-468 
#4-458 

16-816 

16-814 

16-812 
#4-442 
#4-456 

17-888 
#4-442 

33-1148 

36-1265 
#29-1061 

17-967 

17-968 

17-96'- 

37-1 ijl 
#4-473 

10-563 

34-1222 

17-877 
#4-442 



#37-1411 
29-1057 

#37-14-4 
29-1057 
29-1057 
13-664 
13-697 
37-1345 
11-596 

#11-577 

#33-1116 
34-1202 
34-1213 
33-1122 
37-1351 
34-1206 
34-1215 

#33-1122 

#33-1131 

•7-484 
16-818 
21-1022 
11-587 
12-630 

#31-1076 
7-481 
14-746 
4-468 
13-663 

14-7;: 

•7-480 

7-480 

#30-1063 

#30-1065 

#30-1064 

4-467 

36-1279 

#17-959 

33-1156 
36-1276 

#37-1393 

#37-1394 

#37-1395 

#37-1396 

•17-878 

n-588 

36-1284 

17-946 



09:19 PAGE 3 
SEQUENCE 61 

CREF VC1 



13-677 14-730 

•15-786 •15-787 

•37-1351 #37-1376 
#12-616 



•7-486 
16-825 
33-1186 
11-600 



7-481 
•14-765 

7-480 
#14-730 
#37-1373 
•7-480 



7-480 



#33-1158 
36-1297 



7-487 

16-830 

37-1327 



21-1022 
#14-77'' 



#37-1366 



n-601 13-657 

37-1356 

17-950 #32-1096 



16-805 
• 15-79.' 



#32-1088 
•15-794 



16-353 



16-857 



#32-1091 



34-1204 #37-1368 

•34-1217 34-1218 #37-1369 

33-1135 35-1244 #37-1372 
#37-1392 



7-494 

16-356 

37-1333 



21-1022 



16-808 
16-864 
37-1344 



16-810 
17-896 



17-933 



18-978 



13-672 



13-684 



13-695 



13-701 



#17-876 



C2n9BE 



CREATE-) BY RACftO ON 22 JAN-S? AT 



SYIWX CROSS REFEKENCE 

SY«OL va;.ue 

ERRVEC = 0000(K 

ERinSG 010036 

ER2KSG 010002 

tR3BSG 010074 

ERAHSG 010152 

EXCADO 003H2 

FILBUF 004772 



FILTAB 

FINISH 

FIRSTA 

FIHSTB 

FLAG 

GNS 



GTSUR 
HOLCn 
H0LCK2 
HT 



012322 
013102 
003140 
001114 
013066 
****** 



104405 
012006 
012020 
000011 



lOTVEC 


= 000020 


LASTAO 


003144 


LF 


= 000012 


LOOP 


003060 


HESSAG 


001112 


HESSPT 


013104 


HESS24 


013116 


nESS44 


013106 


NESTAB 


013126 


HES1 


010576 



BES2 

HFPT 

HNOm 

NOOATA 

NOROHE 

NOftonn 

NOftORS 

OCAOD 

OCASC 

OCTBUF 

OUT^AS 

OVEfil 

0VER10 

0VER11 

0VEH2 

0VER9 

PATCHS 

PFEKR 

PFHEAO 

PFHSG 



011176 
OC0007 
007350 
002630 
0001 00 
010330 
002544 
005140 
005034 
010566 
012666 
004406 
004722 
004714 
004660 
004710 
002344 
000040 
007735 
010252 



REFERENCES 
»4-442 

17-959 

17-960 

17-961 

17-962 
•11-581 

lt-817 

17-931 

34-1214 
•16-829 
•11-582 
»4-471 
•33-1157 

4-458 

28-1036 

28-1036 

7-481 

15-785 

15-792 
#4-442 

21-1022 
#4-442 

•r-sso 

#<i-442 
»12-61v 
#4-470 
•7-489 

7-496 

7-489 

37-1379 

13-653 

37-1330 

13-660 
#6-478 

10-556 

1,-558 
#4-452 

17-965 

7-536 

16-834 

17-926 

7-501 

36-1320 

17-884 

17-885 

17-938 

i;'-937 
• i;-387 
#9-548 
#4-451 

16-854 

1 7-964 



.-480 
#: 1-1071 
#31-1070 
#31-1072 
#31-1074 
•1.-590 

16-824 
#18-974 
#35-1237 

33-1118 
•11-589 

7-520 

36-1310 

4- '.58 

28-1036 

28-1036 
#28-1036 
t33-1147 
#33-1151 

16-836 

21-1022 

•11-591 
16-831 
12-635 
•13-661 
•7-496 
#37-1384 
#37-1380 
#37-1388 
#32-1094 

#32-1095 

7-485 

#29-1060 

#10-573 

10-562 

#32-1079 

#10-556 

16-841 

17-930 

19-989 

#37-1326 

#17-886 

#17-951 

17-944 

#17-939 

#17-947 

13-655 
#31-1069 
#31-1077 



09:19 PAGE 4 

SEQUENCE 62 

CHEF V01 



K 5 



•7-480 



•11-6C3 
16-83i 
33-1170 

33-1163 
•11-602 

14-738 
#37-1371 

7-481 

28-1036 

28-1036 



16-843 
33-1171 

•n-604 
16-865 



16-827 

34-1216 
37-1338 



15-796 



•7-480 



12-631 
16-842 
33-1185 

#37-1377 
11-606 



23-1036 
28-1036 
26-1036 



16-847 
33-1188 

12-634 
1 7-934 



34-1205 

•34-1218 
•37-1340 



16-859 #20-1017 

#19-989 20-1019 

19-994 19-1001 



#17-949 



1 7-897 



7-506 



•7-507 



#12-640 
16-855 16-860 

37-1332 37-1343 



12-617 #12-639 



•7-5-8 



17-895 
37-1346 



17-903 



17-927 



23-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 


28-1036 











16-861 17-928 

34-1201 37-1347 



#12-641 
18-97? 



17-932 



18-974 



18-976 



21-1022 21-1022 
37-1329 437-1379 

•34-1219 36-1280 *36-1282 •36-1283 37-1326 
•37-1341 



19-1003 #32-1093 



17-941 



CZfWBE 

SYHBOL 

SYBBOL 

PIRQ 

PIRQVE 

PPFVAR 

PROW 

PRO 

PR! 

PR2 

PR3 

Pfi4 

PR5 

PR6 

PR7 

PS 

PSU 

PUT«ES 

PWHVEC 

ROCHR 

RDLIN 

RESREG 

RESVEC 

RETURN 

RfMjni 

RfMjn2 

trnuo 

fWf.fK 
RHNtJIS 

Ror"cNr 

ROWRR 



CREATED Br flACRC 



CROSS REFERENCE 
VAUJE 
= 177772 
= 000240 

C03650 

003U4 
= 000000 
= 0000*0 
^ 000100 
= OOOKO 
= 000200 
= 000240 
= 000300 
- 000340 
= 177776 
= 177776 

003760 
= 000024 
= 104407 
= 104%10 
= 104412 
= 000010 

013064 

C07266 

007271 

007274 

007277 

007302 

0030/.6 

oomo 



001116 



ROHNM 


012126 


mmm 


007332 


ROnPTR 


007176 


ROHTYP 


0120*6 


H0H1 


013504 


R0H2 


013S20 


R0M3 


013534 


ROM 


013550 


RSTART 


002204 


R6 


^1000006 


R7 


=1000007 


SAVRE6 


= 10441) 


SCOPE 


= 000004 


SEOBUF 


013040 


SEOERR 


= 000200 


SEOMSG 


010406 


SEQTST 


012174 


STACk 


= 001100 


START 


001400 



REFERENCES 
#4-4 ',2 
«4-442 

13-654 

7-541 
#4-".2 
f4-.<.2 
<4-442 
«4-442 
#4-442 
#4-442 
#4-442 
#4-442 
#4-442 
#4-442 

13-65? 
#4-442 

23-1026 
#28-1036 

17-955 
#4-442 
•15-784 
#29-1050 
#29-1051 
#29-1052 
#29-1053 
#29-1054 
•11-577 
#4-469 
•15-796 
•34-1206 
#4-472 

17-939 

33-1167 

29-1039 
•7-490 

16-832 

37-1388 

37-1389 

37-1390 

37-1391 

4-461 
#4-442 

18-974 
#4-442 

17-876 
#4-442 

J3-1116 
#4-453 

17-966 

7-542 
#4-442 

4-458 



ON 22-JAN-82 AT :9:19 PAGE 5 
SEQUENCE 63 
CREF \ 



L 5 



01 



13-689 
#13-649 



4-4 ;2 

13-659 

#28-1036 

#28-1035 

•15-791 
29-1058 
29-1058 
29-1058 
29-1058 
29-1058 
11-578 
•10-562 
1 7-886 
•34-1215 
•7-S05 
33-1147 
33-1168 
#29-1058 
•7-497 
#33-1161 
#3?'- 1401 
#37-1402 
#37-1403 
#37-1404 
#7-534 
•7-5C6 
18-983 

#28-1036 

35-1237 

36-1294 

#32-1081 

#34-1201 

7-480 
#7-480 



#15-; 



#16-801 



• 16-828 



•11-593 
•11-587 

1''-887 
•36-1279 
•7-514 

33-1151 
#33-1176 

17-911 



8-543 
•7-517 
•20-1017 



36- -.262 
36-1519 



33-1153 33-1173 #37-1370 



11-594 
• 11-600 

17-897 
•36-- 1294 
•7-526 

33-1180 



#29-1039 



•7-518 
•?0-1020 



#11-610 
13-655 
17-899 
36-1319 

•7-528 
35-1242 



17-910 

•13-671 

17-906 

7-534 
36-1302 



•13-683 
17-908 

11-578 



•13-694 
17-9^1 

n-594 



•13-700 
• 17-954 

14-732 



16-801 
33-1158 



16-867 
33-1163 



16-870 
33-1173 



17-925 



1 7-929 



36-1312 36-1314 36-1316 36-1317 37-1328 #37-1360 











n 5 


CZH9BE 


CREATED BY 


fWCRO ON 22 


-JAN-82 AT 


09:19 PAGE 6 
SEQUENCE 64 


SYBSOC 


CROSS REFERENCE 






CREF vol 


SYHBOL 


VALUE 


REFERENCES 






STK. HT 


= 177774 


»4-442 






SUR 


001 lOA 


#4-467 
23-1026 


.7-480 
23-1026 


7-480 .7-480 .7-480 


SUREG 


000176 


#4-458 


7-460 


7-481 23-1026 23-1026 


sue 


= 000001 


#4-442 






SUOO 


= 000001 


#4-442 


4-^^42 




SW01 


= 000002 


#4-442 


4-442 




SU02 


= OOOOOA 


#4-442 


4-442 




SUG3 


= 000010 


#4-442 


4-442 




SWM 


-- 000020 


#4-442 


4-442 




SW05 


- 000040 


#4-442 


4-4' 2 




SW06 


= 000100 


#4-442 


4-442 




SU07 


= 000200 


#4-442 


4-442 




SU08 


= 000400 


#4-442 


4-442 




SW09 


= 001000 


#4-442 


4-442 




SUl 


= 000002 


#4-442 






SUIO 


= 0O20OC 


#4-442 






swn 


= 004000 


#4-442 






SUl 2 


= 010000 


#4-442 






SUl 3 


-- 020000 


rH-.<.2 






syu 


= 040000 


#4-442 






SUl 5 


= 100000 


#4-442 






SU2 


= 000004 


#4-442 






SU3 


= 000010 


#4-442 






SU4 


= 000020 


#4-442 






SU5 


= 000040 


#4-442 







TIMES 


0C4342 


TKVEC 


= oooaKO 


TPVEC 


= 000064 


TRAPVE 


= 000034 


TRTVFC 


= 000014 


TYPE 


= 104401 


TYPOC 


= 104402 


TYPON 


= 104404 


TYPOS 


= 104403 


SAPTHD 


001124 


f^sTAr 


= .**•*'- 


»ATYC 


005564 


SATYl 


005540 


$ATY3 


-055»6 


tAT¥4 


UC5S56 


SAUTOe 


001100 



7-481 



17-879 



17-883 



17-951 



#4-442 
#4-442 
#4-442 
#4-442 
#4-442 
•19-995 
.7-520 
.14-743 
14-766 
.7-504 
#4-442 
#4-442 
#4-442 
#4-442 
7-481 
23-1026 
23-1026 
#28-1036 
#28-1036 
5-475 
22-1024 
22-1024 
17-945 
17-949 
#22-1024 
#4-464 



.19-997 .19-1005 

7-521 7-523 

14-748 14-749 

#14-770 

16-802 .16-304 



.19-1007 


.19-1009 


#19-1012 








.7-530 


7-532 


.14-734 


14-735 


H-736 


.14-738 


.14-750 


14-752 


14-753 


.14-753 


14-734 


.14-755 



#16- -'2 



.7-480 

8-543 
23-1026 
#28-1036 



#5-475 

22-1024 
#22-1024 
#22-1024 

21-1022 

.7-48! 



.7-480 



e-543 


io-5:s 


A-863 


1 /-sai 


ai-1022 


23-1026 


23-1026 


23-1026 


23-IOc6 


<:i-102v': 


? 102. 


23-1026 


24-1028 


#28-103f 



#22-1024 
23-1026 23-1026 23-' 026 



CZWK 


CREATED ar 


RACRO un 


SYieOL 


:»OSS REFERENCE 




STWX 


VALUE 


REFERENCE 


smM3 


001202 


#6-477 


smoiK 


001206 


#6-477 


VWIL 


001140 


5-475 


«WWS1 


001170 


#6-477 


SWK2 
SWW«3 


001 •'74 
001200 


#6-477 
•6-477 


Sfwe4 


001204 


#6-477 


MBAOn 


001126 


#5-475 


SMFLE 


006002 


•22-1 0?f 


Stew 


006561 


23-'J26 


SISGAD 


001154 


#6-.77 


StSGLG 


001156 


#6-477 


8«GTt 


001140 


#6-477 


SRSyR 


006550 


23-1026 


WTYPI 


001171 


#6-477 


«mTP2 


001175 


#6-477 


BITTPS 


001201 


#6-477 


SmTP4 


001205 


•6-477 


SNULL 


005530 


21-1022 


SOCHT 


0070V. 


•24-1028 


sonoe 


007016 


•24-1028 


JPASS 


001146 


#6-477 


SPASTH 


001132 


#5-475 


sauES 


005534 


21-1022 


SWCMt 


006270 


#23-1026 


SRooec 


= *•••*• 


28-1036 


SnOLIN 


006420 


#23-1026 


smocT 


= t***** 


28-1036 


SflCSZ 


- 00OO10 


#2r-i026 


SRESAE 


007056 


#25-1 OKI 


MTMAO 


002324 


#8-543 


M2A 


= ••«»*• 


28-1 CJi 


SSAVRE 


007020 


#2. 1030 


«SETUP 


= 000124 


#4-459 
7-480 
7-480 


«STUP 


= 177777 


#4-459 


»SVPC 


= 000210 


#4-462 


SSUR 


= 160000 


4-440 
4-441 


SSUREG 


001162 


#6-477 


SrESTN 


001144 


#6-477 


STKB 


005522 


21-1022 
23-1026 






$TKS 


005520 


21-1022 
23-1026 


STN 


= OOOOOl 


/.-440 


STPB 


005526 


21-1022 


ITPFLG 


005533 


21-1022 


STPS 


005524 


21-1022 


STRAP 


007114 


7-480 


$TRAP2 


007136 


#28-1036 



:-!Ai«-82 >T 



=—■,75 



■9 BA6E 8 

SEOUENCE 66 

CREF VOI 



8 6 



#ft-4/^ 



7-480 



7-481 



21-1022 



22-' 024 


•22-1024 


#22-1024 












#23-026 


















•22-1024 


22- 


■1024 














•22-1024 


















22-1024 


•22- 


•1024 


22-1024 


•22-1024 










f23-'!026 


















21-1022 


21- 


•1022 


#21-1022 












•24-1028 


#24- 


-1028 














•24-1028 


24- 


-1028 


•24-lu28 


•24-1028 


#24-1028 








•7-480 


•7-480 


7-539 


•8-54. 


•8-543 


8-':43 


8-543 




21-1022 


#21- 


-1022 


23-1026 


23-1026 


23-1026 


23-1026 






23-1036 


28- 


-1036 














28-1036 


28- ■•036 














23-1026 


















28-1036 


















28-1036 


28 


-1036 














4-459 


#4- 


159 


4-459 


#4-459 


4-459 


#4-439 


7-450 


7-480 


7-480 


7-480 


7-480 


7-480 


7-480 


7-430 


7-480 


7-430 


7-481 


7-481 


7-481 


8-543 


8-543 


23- 1 02b 


23-1026 




#4-459 


4- 


»9 


#4-459 


♦4-459 


4-459 


»4-',59 


*4-459 


4-459 


4-462 


















#4-440 


4- 


;41 


4-441 


4-441 


4-441 


4-44; 


^-441 


4-441 


7-480 


8- 


543 


8-543 


8-543 


8-543 


8-543 






7-480 


















21-1022 


21 


-1022 


21-1022 


#21-1022 


23-1026 


25-1026 


23-1026 


23-1026 


23-1026 


















21-1022 


21 


-1022 


21-1022 


#21-1022 


23-1026 


23-1026 


23-1026 


23-1026 


23-1026 


23 


-1026 














#4-440 


















21-1022 


21 


-1022 


.»21-1022 












21-1022 


21 


-1022 


#21-1022 












21-1022 


21 


-1022 


#21-1022 












#28-1036 


















28-1036 



















CREATED BY NACRC ON 22-JAN-82 AT 



SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
»TRP = 000013 



007150 

001130 

006526 

= ••♦»♦• 

00;i54 
005366 
005516 
006616 
006632 
006572 
001152 
001134 
001164 
001210 
001212 
= 000023 
= 000021 
= 000000 
007015 

^ ****** 



= 001(24 



REFERENCES 

#28-1036 
28-1036 
28-1036 
28-1036 
28-1036 

»2?«-1036 
28-1036 

«5-475 
23-1026 
28-1036 
28-1036 

«1-1022 
21-1022 
21-1022 

#24-1028 
24-1028 

#24-1028 

#6-477 

#5-475 

#6-^77 

#6-477 

#6-477 
21-1022 
21-1022 

#8-543 

»24-1028 
22-1024 

#5-475 



22-1024 
21-1022 
21-1022 
28-1036 
#24-1028 
28-1036 



21-1022 
21-1022 
8-543 
•i4-1028 
22-1024 
5-475 



09:19 PAGE 9 
SEQUENCE 67 

CREF V01 



C 6 



28-1036 
#28-1036 
28-1036 
28-1036 
28-1036 
28-1036 
#28-1036 



23-1026 23-10*0 #23-1026 



23-1036 
28-1036 
#28-1036 
28-1035 
28-1036 
28-1 C3c. 



28-1036 
21-1022 
21-1022 
28-1036 
28-1036 



21-1022 
24-1028 



28-1036 
28-1036 
28-1036 
#28-1036 
28-1056 
28-1036 



2S-1036 
#21-1022 
#21-1022 



28-1036 
28-1036 
28-1036 
28-1036 
#23-1036 
28-1036 



23-1026 



#28-1036 
28-1036 
28-1036 
28-1036 
28-1036 

#28-1036 



28-1036 
*28-1036 
28-1036 
28-1036 
28-1036 



28-1036 
28-1036 
#28-1036 
28-1036 
28-1036 



28-1036 
23-1036 
28-1036 
#28-1036 
28-1036 



23-1026 
#24-1028 



C2WBE 

BACRO CROSS 

HACRO NAME 

CQWEN 

ENOCON 

ESCAPE 

GETPRI 

GETSWR 

RULT 

NEUTST 

POP 

PUSH 

kEKMT 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

SPACE 

STARS 

SURSU 

TRUTRP 

TYPBiN 

TYPOEC 

TYPNAH 

TYPfOI 

TYPOCS 

TYPOCT 

TYPTXT 

SSFSCA 

Sl-HEUT 

tSSET 

SSSETH 
tSSKIP 
•EOUAT 
.EOUIV 



.HEADE 

.SETUP 

.SWRKI 

.SMLO 

.SACTI 

.$APTB 

.$APTH 

.lAPTY 

.SASTA 

.SCATC 

.SCUTA 

.$£0P 

.SREAO 

.SSAVE 



CREATED BY HACRO 

REFERENCE 

REFERENCES 

f4-AA2 

»4-442 
14-442 
«4-442 
f4-442 
#4-43" 
#4-437 
#4-437 
#4-442 
#28-1036 

28-1036 
#4-442 
#4-442 
#4-442 
#4-432 
#4-436 
#21-1022 
#4-442 
#28-1036 
#4-442 
#4-442 
#4-437 
#4-442 
#4-442 
#4-442 
#4-442 
#4-442 
#4-442 
#28-1036 

28-1036 
#7-480 
#4-442 
#4-436 
#4-429 

4-442 

4-442 
#4-437 
#4-435 
#4-437 
#4-441 
#4-437 
#4-436 
#4-436 
#4-436 
#4-435 
#4-435 
#4-435 
#4-435 
#4-433 
#4-435 



ON 22-JAN-82 AT 09:19 PAGE 1C 
SEOUENCE 68 

CREF V01 



D 6 



#7-481 



#4-442 
#4-442 
#4-442 



#4-442 
#4-442 
#22-1024 
#7-480 



#4-442 



#23-1026 



4-442 
#4-439 
4-442 
4-442 
4-440 
4-459 
4-441 

4-462 
6-47/ 
5-475 
22-1024 

#4-458 

#8-543 
#23-1026 
25-1030 



7-481 



#22-1024 
#22-1024 



#22-1024 
#22-1024 



#25- 
#22- 



1030 
1024 



#26-1032 
#25-1030 



#27-1034 



28-1036 28-1036 28-1036 28-1036 23-1036 28-1036 28-1036 28-1036 28-1036 
7-480 



#4-443 
#23-1026 
7-480 



#7-481 



#4-445 
#23-1026 



#4-462 
#23- '026 



#5-475 
#23-1026 



#5-475 
#24-1028 



#5-475 
#25-1030 



#6-477 
#28-1036 



#8-543 



28-1036 28-1036 28-H;-6 28-1036 28-1036 28-1036 28-1036 28-1036 
#7-480 



28-1036 



4-442 
4-442 
4-442 



4-442 
4-442 
4-442 



4-442 


4-442 


4-442 


4-442 


4-442 


4-442 


4-442 


4-442 


4-44? 


4-442 


4-442 


4-442 


4-442 













E 6 i 

CZ«9e£ CREATED BY KACfiO ON 22-JNi-S2 AT 09:1 PAGE 11 

SESUENCE 69 I 

BACRO CROSS REFERENCE CREF VOI I 

BACRO SA« REFERENCES 

.STRAP #4-«37 *28-1036 

.STYPE #4-435 #21-1022 ; 

.tTYPO #4-438 24-1028 



CZH9eE 

SYIBOL 

SY«KX 

S8ASE 

tCDWI 

$CDy2 

SCHARC 

SCKSUR 

SUTAG 

SCNTLG 

SCNTIU 

SCPUOF 

SCRLr 

SODUO 

WOUI 

S00W10 

S00U11 

soowii 

S0DW13 
S00U1« 
S0DW1S 
iCDW2 

socy3 

SODM 

SODUS 

>DDW6 

S0DU7 

SDDWS 

SDDU9 

SOEVCT 

SOcyffI 

SOOAGN 

S£ND/U> 

SENDCT 

SENDM6 

KNULL 

KHV 

KHvn 
KOP 

SEOPCT 

SETABL 

SETEMO 

SFATAL 

$ffLG 

SflLLC 

$fILLS 

SGET42 

tGTSUR 

tHD 

SHIBTS 

SINTAG 

Kf 

SirLG 

$flA0R2 



CREATED Bf HACRO 



CROSS REFERENCE 
VALUE 
0012U 
001220 
001 2?2 
0OS5H 
006006 

006543 
0C6SS6 
001166 
005535 
001224 
001226 
001250 
001252 
001254 
001256 
001260 
001262 
001230 
001232 
001234 
001236 
001240 
001242 
001244 
001246 
C011SO 
001216 
002322 
002312 
002L66 
002331 
002326 
001160 
001161 
002242 
002260 
001160 
001264 
001142 
006004 
0055^2 
005531 
"C2302 
006056 
= 000003 
001124 
0O11Q1 
005536 
006003 
001172 
001176 



OH 22-JAN-82 AT 09:19 PAGE 

SEQUENCE 



7 
65 



REFERENCES 

#6-477 

»6-477 

#6-477 

•21-1 02i 

#23-1026 

7-480 

23-1026 

23-1026 
#6-477 

21-1022 
#6-477 
*6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#0-4 ■"? 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 
#6-477 

8-543 

4-462 

7-480 

8-543 

8-543 
#6-477 
#6-477 

7-537 
•7-480 
#6-477 

5-475 
#6-477 
•22-1024 

21-1022 

21-1022 
#8-543 
#23-1026 

4-440 
#5-475 
#4-465 

21-1022 
•22-1024 
#6-477 
#6-477 



13-690 
13-696 

•21-1022 

28-1036 

7-480 

#23-1026 

#23-1026 

: 1-1 022 
13-665 



13-687 



P-543 

.'-481 
#3-543 
#8-543 
#«i-543 

7-481 

7-480 

7-540 
#8-543 

#6-477 

♦22-1024 

•22-1024 

21-1022 

21-1022 

28-1036 
4-440 



21-1022 
28-1036 



21-1022 
13-676 



CREF VOl 



•21-1022 #21-1022 



#8-543 
#8-543 



1,--V36 
13-649 
#8-543 
8-543 



22-1024 

21-1022 

#21-1022 

28-1036 
4-440 

23-1026 
#21-1022 



#21-1022 23-1026 23-1026 23-1026 



21-1022 
21-1022 



•22-1024 
#21-1022 



?2-1024 
21-1C22 



#22-1024 



22-1024 
22-1024 



23-1026 23-1026 



